6  Easy-To-Type 
Programs: 
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American  Techna- Vision 


For  Orders  Only  - 1-800-551-9995 
CA.  Orders  /  Information  415-352-3787 


No  surcharge  for  VISA/ MasterCard 
Your  card  is  not  charged  until  we  ship 


800  4  PIECE  BOARD  SET 

Includes  Main  Board,  Power  Supply 
Assembly,  CPU  Module  and  10K 
Revision  B  Operating  System  Module. 
All  boards  are  new,  tested  and  complete 
with  all  components.    $  /^  Q  50 


=28^ 


HOT  DISK  TITLES 

•  Video  Title  Shop  +  2  Graphics  Disks 
Bonus  Package  -  All  3  for  . .  $14.50 

•  ChessMaster  2000 $12.50 

•  Alternate  Reality  the  City    $12.50 

•  Alternate  Reality  Dungeon  $12.50 
■  Tomahawk $12.50 


FLAT  SERVICE  RATES 

1050  DISK  DRIVE $75.00 

810  DISK  DRIVE $69.50 

850  l^^"ERFACE $39.50 

800  COMPUTER $49.50 

1200XL  COMPUTER $49.50 

Flal  rales  include  Paris  &  Labor,  60  day 
warranty.  Include  $7.00  shipping  &  insurance 


800/400  MODULES 

NEW  PARTS  COMPLETE  WITH  IC'S 
en  •  CX853 16K  Ram  Module 
'^*-'- 800  Main  Board 

■800/400  CPU  with  GTIA 
■  800 10K"B"O.S.  Module 
•  400  Main  Board 
'  400  Power  Supply  Board 


$ 


9= 

EACH 


800  Pov«r  Supply  Board  $14.50 
INTEGRATED  CIRCUITS 

•  CPU CO14806 

•  POKEY C012294 

■PIA C014795 

•  GTIA CO14805 

■  ANTIC C012296 

•  CPU CO10745 

•  PIA CO10750 

•  CPU C014377 

■  DELAY CO60472 

■2600TIA..    CO10444 

•  PIA C012298 

•  CPU 6507 

•  PIA 6532 

■  RAM 6810 

■  CPU 6502B 


$^50 

EACH 


C061598  $20.00 
C061991  $15.00 
1050  Rom  $19.50 
C061618  $20.00 


C021697  $15.00 
C025953  $9.50 
5713  ....  $5.25 
C024947  $15.00 


1050  MECHANISM 

Factory  fresh  TANDON  mechs. 
make  difficult  repairs  a  snap.  Units 
are  complete  with  Head,  Stepper, 
Spindle  motor,  belt  etc.  Just  plug  in, 
no  difficult  alignments  or  adjust- 
ments required      <t  A—7c:n 


VISICALC 

SPREADSHEET 

Unleasfi  the  corrputing  power  t-  j  r\qc,  I 

-J  ......  a  uit  At-.i  ...ituv/i^i — r«   *     I  ViJ'''^  I 


of  your  8  bit  Atari  wilhVisicalc, 
Conpute  everything  from  home 
finances  to  high  powered  finan- 
cial projections.  Hundreds  of  uses. 


DISK 


XL  40  PIN  LSI  CHIP  SET 

A  Complete  set  of  40  Pin  Large 
Scale  Integrated  Circuits  for  your 
800XL,  600XL  or  1200XL  computer. 
Great  for  quick  repairsl  Set 
contains  one  each  of  the  ^    .  ^^  nr- 1 
following:  CPU,  GTIA.      $"1(-vy>^l 
ANTIC,  PIA  AND  POKEY.         '^ 


REPAIR  MANUALS 

SAMS  Service  Manuals  for  the 
following  units  contain  schematics, 
parts  listings,  labelled  photographs 
showi  ng  the  location  of 
checkpoints  and  morel  A  special 
section  gives  oscilloscope  and 
logic  probe  readings  allowing  you 
to  narrow  the  malfunction  down  to 
a  specific  chip  or  transistorl 
800,  800XL,  130XE,  400,  1025 

and  1050 $19.50  each 

520ST  Service  Manual.  $37.50 

MISCELLANEOUS 

1027  INK  ROLLER   $6.50 

13  Pin  Serial  I/O  Cable $5.95 

ACE  Joystick $7.95 

Joystick  Extension  Cable  6'  $5.00 

1050  Track  0  Sensor $8.50 

2793  1050  Controller  IC  . . .  $19.50 

U.S.  [5oubler $29.95 

SPARTADOS  Tool-Kit . . .  $32.95 
Paddle  Controllers  (Pair) ...  $6.50 

400  3  Piece  Board  Set $19.50 

Fastchip  for  800/400 $15.50 

Rambo  XL  w/o  RAM  IC's  $39.95 
850  or  PR  (Vtodem  Cable  . .  $14.50 
850  or  PR  Printer  Cable  . . .  $14.50 

Printer  Interface $39.95 

I/0 13  Pin  PC  connector . . .  $4.50 
I/O  13  Rn  Cable  end  plug  . .  $4.50 
ST  6'  Disk  Drive  Cable  . . .  $14.00 
ST  fvlonitor  Cable  connector     $5.50 

ST  Drive  Cable  plug  end $6SD 

5  1/4"  Drive  Cable ....  $23.95 


CALL  TOLL  FREE 
1-800-551-9995 

IN  CALIF  OR  OUTSIDE  U.S. 
CALL  415-352-3787 


'^POWER  PACKS 

Exact  replacement  trans-  g,    ,    .f-/-,| 

former  lor  800/400,1050  IplA^OI 

810,  1200XL,  850,  XF5S1  &  I  *T        I 
1020  units.  Part  *C017945. 

XL7XE  SUPPLY 

PcwrerPak  for  800X1,600X1    SOCOOl 
130XE,  65XE  &  XE  Game.    '*'^J^u>-'l 


THE  BOOKEEPER 
AND  CX85  KEYPAD 

You  get  both  Atari's  8  bit 
professionai  bookeeping      $  "IQ^SI 
system  and  the  handy  CX85        '  ^ 
numeric  keypad  for  one  low    4  DISK 
price.  Pack^es  factory  sealed.      SET 


KEYBOARDS 

New  and  conplete  subassembly. 
Easy  internal  replacement. 

130XE/65XE    $35.00 

800 $40.00 

800XL  ....   $29.50 
400 $12.50 


COMPUTER  BOOKS 

Atari  Playground  Workbook  $7.95 
HackerBook  Tricks  &  Tips    $5.00 

Inside  Atari  Basic $5.00 

Atari  Basic  Ref.  manual.       $5.lX) 
How  to  Atari  6502  Program    $5.00 
Write  Your  Own  Games. 
Programmers  Ref.  Guide 
Assembly  Language  Guide 

XE  Users  Handbook 

XL  Users  Handbook 

Advanced  Programming 

Atari  Basic  Faster  &  Better 

Your  Atari  Computer $17.95 

SERIAL  I/O  CABLE 

High  Quality,  13Pin $5.95 

MAC-65  CARTRIDGE 

6502  Machine  language  Macro- 
Assembler.  First  class  tool  for 
serious  programmers. . .    $59.95 

ATARI  850  IMTERFACE 

Bare  PC  Board  with  parts  list  and 

crystal $7.50 

Board  &  all  plug  in  IC's  . . .  $39.50 

PR:  CONNECTION 

Serial/Parallel  Interface  for  oomecing 
modems  and  printers $65.00 

BASIC  CARTRIDGE 

Exact  replacement  for 
8O0/4O0/1200XL $15.00 

EPROM  CARTRIDGES 

16K  Eprom  Board  with  case.  Specify 
dual  2764  or  single  27128  styleTGolS 
contacts $6.95 

ANIMATION  STATION 


Graphics  Design  Tablet . 


.  $74.95 


ICartridges  for  al  8  bit  Atari  corrputets  ' 

POLE  POSITION  Oailiidge t15.00 

PAC-MAN  Cactlid™ $4.00 

DELUXE  INVADERS  CaiBldgo  ....  $4.00 
JOURNEY  TO  THE  PLANETS  Cart.    $4.00 

DONKEY  KONG  CarHidgo $5,00 

CHOPtlFTER  Cartridge $10.00 

MILLEPEDE  Cailridge $10.00 

EASTERN  FRONT  CafUidge $15.00 

PENGO  Cartridge $15.00 

CAVERNS  OF  MARS  Cartridge  . .     $15.00 

ATARIWRITER  Cartridge $29.95 

TURMOIL  Cartridge $5.00 

CROSSFIRE  Cartridge $7.50 

SPRINGER  Cartridge $7,50 

FRACTION  FEVER  Cartridge $9,50 

ALPHABET  ZOO  Cartridge $9.50 

UNKING  LOGIC  (Rshec-Price)  Curt     $9.50 

FACEMAKER  Cartridge $9.50 

DELTA  DRAWING  Cartridge $9.50 

ADVENTURE  CREATOR  Cartridge  $12.50 

ZONE  RANGER  Cartridge $12.50 

SILICON  WARRIOR  Cartridge $12.50 

MATH  ENCOUNTER  Cartridge...  $12.50 
LEARNING  WITH  LEEPER  Cart,  ,     $12,50 

UP  FOR  GRABS  Cartridge $12,50 

PILOT  LANGUAGE  Package $17,50 

SPARTADOS-X  Cartridge  ,  ,  ,  .        $59.95 

ACTION  0,S,S  Cartridge $59,95 

MAC-65  0,S.S.  Cartridge  ,  ,  ,  ,  $59,95 
BASIC  XE  0,S-S.  Cartridge  .  .  .        $59.95 

R-TIME  8  Cartridge $56.95 

BASIC  XL  OSS,  Cartridge.  ..        $49.95 

DISK  TITLES 
PAPERCLIP  (Word  Processor). ,    $29,95 

VISICALC  Spreadsheet    $19,95 

BOOKEEPER  »  0X85  KEYPAD  ,  ,     $19.95 

MISSION  ASTEROID  Disk $5.00 

DAVID'S  MIDNIGHT  MAGIC  Disk       $5,00 

FORT  APOCALYPSE  Disk $5,00 

SPIDER  MAN  Disk $5.00 

HUMAN  TORCH  8  THE  THING...     $5.00 

MUSICAL  PILOT  Ed,  Disk $5,00 

CON-PUTATION  Disk $5.00 

DEBUG  Ctiild<vare  Disk $5.00 

CRYSTAL  RAIDER  Disk $5.00 

DISPATCH  RIDER  Disk $5.00 

MASTER  CHESS  Disk $5,00 

SPEED  KING  Disk $5,00 

LAST  V-8  Disk $5,00 

CHAMBERS  OF  ZORP  Disk $5.00 

PATHFINDER  Disk $5.00 

MATCH  RACER  Disk $5,00 

ENCOUNTER  ON  OUESTAR  IV,,      $5,00 

ALIEN  AMBUSH  Disk $5,00 

NINJA  Disk $7,50 

ELECTRA-GLIDE  Disk $7.50 

WOMBATS  1  Adventure  Disk $7.50 

SPORTS  SPECTACULAR  Disk  ,  ,  ,     $7,50 

THE  GAMBLER  Disk $7,50 

STRATOS  Disk $7,50 

FUN  IN  NUMBERS  Disk $7.50 

MIND  MAZES  (Educational $7.50 

HONEY  CRAZE  MATH  (D) $7.50 

MONEY  TOOLS  (Financial  Utility). .  $9,95 

DIG  DUG  Disk $9,95 

REPTON  Disk $9.95 

REAR  GUARD  Disk $9.95 

TECHNA-COLOR  DREAM  Disk.,  ,     $9,95 

FREAKY  FACTORY  Disk $9.95 

LASER  HAWK  Disk $9.95 

ROCKET  REPAIRMAN  Disk $9.95 

CEST'E  LA  VE  Disk $9.95 

WOMPER  STOMPER  Disk $9.95 

OLIN  EMERALD  (Jr..  Adv.) $9.95 

CHESSMASTER  2000  (64K) $12.50 

DROPZONE  Disk $12.50 

CASTLE  WOLFENSTEIN  Disk  .  .  ,  $12.50 
BEYOND  CASTLE  WOLFENSTEIN  $12.50 

ALIANTSDisk $12.50 

MOUSE  QUEST  Disk $12,50 

ELECTRONIC  DRUMMER  Disk  ,  ,     $12,50 

STOCK  MARKET  Game $12.50 

PIRATES  OF  THE  BARBARY  COAST  $12.50 

NiCKERBOCKER  Disk $12.50 

GAMESTAR  FOOTBALL  Disk  .  .  .  $14.95 
MIDWAY  BATTLES  War  Game  .  .  $14.95 
MOONMISTdnfocom  Adventure)  $14.95 
MINDSHADOWAdventure64K,,    $14,95 

SEA  STALKER  Adventure $14,95 

STATION  FALL  Adventure $14.95 

HOLLYWOOD  HIJINKS  Adventure  $14,95 
LURKING  HORROR  Adventure...  $14.95 
MASTERTYPE  (Typing  Tutor)  ..  .    $15,00 

BANK  STREET  WRITER $17,50 

CUT  »  PASTE  W,P,  Disk $17,50 

SPARTADOS  CONST,  SET $39.50 

DATASOFT  DISKS 

VIDEO  TITLE  SHOP  +  2  GRAPHICS  DISKS 
BONUS  PACKAGE  -  ALL  3  FOR  .  .  $14,50 
ALTERNATE  REALITY  (The  City)  $12.50 
ALTERNATE  REAUTY  The  Dungeon  $12.50 

ZORRO  Disk $9.95 

SARACEN  Disk $9,95 

GUNSUNGER  Disk   (64K) $9,95 

TOMAHAWK  Helicopter  Game  ,  ,  ,  $12,50 
THEATER  EUROPE  War  Game,.    $12.50 

BRUCE  LEE  Disk $12.50 

CROSSCHECK  Disk $12.50 

MERCENARY  Disk $12.50 

THE  GOONIES  Disk $12.50 

CONAN  Disk $12.50 

,  NEVER  ENDING  STORY  (64K)  .  .  $12.50 
L221  BAKER  STREET  (64K)     $12,5qJ 
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Diamond  Operating  System: 
Page  19 


7    AUTORUN  SELEQOR  by  Jason  Strautman 

Total  control  over  your  boot-up "type-in  Software  33  I 

9    OPERATING  SYSTEM  DEVICE   HANDLERS:  PART  1 

by  Bob  Martin  &  Martin  Mercorelli 

Customizing  your  Atari  I/O type-in  Software  31 

13    TWO-COLUMN  PRINT  PRO  by  Earl  Haley 

HELP  files  on  half  the  pages type-in  Software  39 

15     ICON  ANIMATION  SYSTEM  by  Jim  Johnson 

Print  Shop  graphics  that  move type-in  Software  35 

19    DIAMOND  OPERATING  SYSTEM  by  Matthew  Ratcliff 
Point-and-click  for  the  Atari  8-bit 

26    SONG  CHALLENGE  WINNERS  by  Carolyn  Cushman 
"Rhapsody  In  Blue"  playing  on  your  Atari 


DEPARTMENTS 


Song  Challenge  Winners: 
Page  26 


FEATURE  APPLICATION 
5    SUPER  LOCATOR  by  Jeffrey  Summers,  MD 

Fast  multi-file  text  finder type-in  Software  34 

GAME  OF  THE  MONTH 
18     DOOMED  by  Tony  Barnes 

Can  YOU  survive  three  minutes  in  the  death  pit? type-in  Software  29 


SUPER  DISK  BONUS 


23    ANTIC  MUSIC  PROCESSOR:  VERSION  2.0  by  Steven  Lashower 
Now  you  can  add  lyrics  and  sound  effects 

SOFTWARE  LIBRARY   6  Easy-To-Type  8-Bit  Listings 

28    TYPO  II,  SPECIAL  ATARI  CHARAaERS 


ICON  Animation  System: 
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XETEC  DIP-FIX 


The  March  1989  Antic  I/O  had  a  fix  for 
running  Newsroom  page  design  software 
with  a  Xetec  Graphix  interface  on  a  Pana- 
sonic 1080i  printer  The  number  of  the 
DIP  switch  to  be  reset  was  left  out.  The 
complete  instructions  are:  Set  the  News- 
room printer  driver  to  Epson  MX-70  and 
set  Xetec  DIP  switch  2  to  the  ON  posi- 
tion.—ANTIC  ED 


LIST  MISSED 


As  a  long-time  Atari  enthusiast  and  Antic 
contributor,  I  was  interested  in  your  col- 
lection of  existing  products  for  the  8-bit 
in  the  January  1989  issue  of  Antic.  How- 
ever, you  didn't  mention  my  educational 
chemistry  game,  Reaction  Time,  dis- 
tributed by  Queue,  Inc.,  562  Boston  Ave., 
Room  S,  Bridgeport,  CT  96610;  (800)  232- 
2224  or  (203)  335-0906.  Frankly  I  think 
this  is  a  good  and  unique  product,  al- 
though the  advertised  price  of  869  may 
be  too  high. 

In  addition,  you  don't  show  Dynacomp, 
Inc.  in  your  list  of  sources  for  8-bit  prod- 
ucts. Their  most  recent  catalog  lists  over 
70  programs  for  the  Atari.  Quite  a  few  are 
old,  but  they  are  inexpensive  and 
available. 

Karl  Wiegers 
Rochester,  NY 

The  Dynacomp  catalog  includes  educa- 
tional, business,  finance,  statitistics,  engi- 
neering, science,  graphics  and  utility 
software — not  to  mention  games.  The 
catalog  is  available  for  $2  from  Dy- 
nacomp, Inc.,  178  Phillips  Road,  Webster, 
NY  14580.  (800)  828-6772,  (716)  265- 
4040. -ANTIC  ED 


NO  DUMPING 


IBM  PCs  and  clones  have  the  ability  to 
dump  what  appears  on  the  screen  to  a 
printer,  when  you  press  a  [PRINT 
SCREEN]  key.  Is  there  some  way  of  doing 


that  with  my  800XL?  There  are  so  many 
occasions  when  I  would  like  to  do  that 
without  destroying  what's  on  the  screen. 
Jerry  Fraenkel 
Franklin  Square,  NY 

Sorry,  there's  no  built-in  screen  dump  for 
the  800XL  or  for  any  8-bit  Atari.  We  ran 
an  article  and  program  called  Kwik 
Dump  in  the  March  1985  Antic.  But  that 
program  only  works  with  graphics  file 
formats — and  requires  some  program- 
ming knowledge. 


ANOTHER  CONTENDER 

I  feel  compelled  to  write  in  response 
to  your  article  "SpartaDOS  X  or  Atari 
DOS-XE?  Which  is  Number  1?"  I  would 
like  to  mention  a  third  choice,  namely 
MyDOS  4.5. 

My  DOS  is  density  smart,  supports  RAM- 
disks  of  all  shapes  and  sizes,  supports 
double-sided  disk  drives  (like  the  XF551) 
and  supports  hard  disk  drives  and  their 
subdirectories.  Best  of  all,  it's  free  from  any 
of  the  major  commercial  information 
services  (GEnle,  CompuServe,  etc.),  users 
groups,  and  many  BBS's. 

Also  the  source  code  is  included,  allow- 
ing advanced  users  to  fiddle  with  the  DOS 
if  they  like.  Unlike  SpartaDOS  X  and  DOS- 
XE,  MyDOS  is  almost  completely  compat- 
ible with  DOS  2.0  and  2.5,  without  the 
need  for  special  drivers.  And  with  a  util- 
ity program,  it  will  even  do  batch 
processing. 

Now  tell  me,  why  should  I  spend  even 
$10  on  a  DOS  when  I  can  have  the  power 
of  MyDOS  for  free? 

Glenn  Garman 
East  Rochester,  NY 

MyDOS  went  public  domain  in  Decem- 
ber, 1988.  If  you  don't  have  access 
to  MyDOS  elseivhere,  you  can  still  get 
MyDOS  with  manual  from  Newell  Indus- 
tries at  1213  Devonshire,  Wylie,  TX 
75098.  (214)  442-6612.  A  nominal  fee  is 
required  to  cover  shipping  and  han- 
dling—fKHl\Q  ED 
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TOP  DOS? 


LOVE  AFFAIR 


In  his  review  of  SpartaDOS  X  (March 
1989),  Matt  Ratcliff  caUs  it  the  best  DOS 
"bar  none!"  Although  I  think  he  writes 
some  great  stuff  for  the  Atari,  1  disagree. 
I  believe  TopDOS  1.5  +  is  *e  ultimate  disk 
operating  system  for  8-bit  Atari  computers. 
Read  your  own  review  in  the  July  1985 
issue.  Everything  You  Wanted  to  Know 
About  DOS. 

I  don't  like  MS-DOS,  and  that  is  why  1 
chose  the  Atari.  I  don't  need  the  complex 
SpartaDOS  commands,  and  I've  had  it 
with  those  who  proclaim  such  complex- 
ity to  be  better. 

Dave  Bambaloff 
Tacoma,  WA 

Indeed,  our  1985  review  referred  to 
TOPDOS  as  "one  of  the  most  friendly,  full- 
featured  and  useful  DOS  'sfor  the  Atari. " 
Unfortunately,  as  far  as  we  know, 
TopDOS  is  no  longer  commercially 
available — nor  do  we  know  how  it  per- 
forms with  the  XF551  disk  drive.  Antic 
Arcade's  Charles  Cherry  says  that 
TopDOS  was  his  favorite  DOS — until  Su- 
perDOS  came  along  (which  is  why  the  Ar- 
cade Catalog  now  carries  SUPERDOS.) 
-ANTIC  ED 


SAUCERIAN  TROUBLE 

In  case  some  of  your  readers  had  trouble 
getting  Listing  2  of  Saucerian  Shootout 
(January  1989)  to  RUN,  there  is  a  simple 
fix— delete  line  1120  and  then  RUN  the 
program  as  instructed.  This  wiU  create  a 
working  copy  of  the  game. 

John  Reiser 

Omaha,  NE 

This  letter  helped  us  track  down  a  very 
obscure  and  infrequently  occurring  bug 
in  the  program  that  makes  our  BASIC 
loader  listings  We've  been  using  that  pro- 
gram since  1985,  and  this  is  the  first  time 
we've  had  trouble  with  it.  Thanks  for  let- 
ting us  know  about  the  problem  and 
sending  us  the  fix.'— AU1\C  ED 


What  started  out  as  a  Christmas  gift  for 
my  two  children  has  turned  into  an  ad- 
venture, a  love  affair  of  sorts  between  me 
and  our  Atari  XE  Game  System.  1  have  for- 
saken sleep,  a  few  mills,  and  Wheel  of  For- 
tune to  be  with  my  new  companion.  My 
lovely  wife  went  so  far  as  to  ask  if  I  have 
named  this  newcomer  to  our  family. 

We  bought  the  XEGS  as  a  substitute  for 
the  scarce  Nintendo,  but  quickly  tired  of 
the  cartridge  games  (new  ones  are  scarce 
for  this  system).  Just  when  we  were  ready 
to  trade  all  this  for  a  new  go-cart  engine, 
1  discovered  Antic  at  our  local  Walden 
Bookstore.  From  the  December  1988  is- 
sue, I  ordered  a  used  Indus  disk  drive  from 
Computer  Repeats.  It  arrived  with  five  util- 
ities and  complete  instructions.  The  disk 
drive  gave  me  a  new  respect  for  the  Atari 
XEGS,  and  the  system  is  just  beginning  to 
grow. 

The  January  1989  Antic  held  an  even 
bigger  surprise — one  of  your  Antic  Clas- 
sifieds advertisers  was  Joe  Butner  of  Oak 
Hill,  WV,  about  eight  miles  from  me.  I  got 
in  touch  with  him  and  he  brought  over 
a  copy  of  his  game.  Fountain  of  the 
Gods.  Not  only  did  my  family  find  a  great 
game  (best  in  our  collection),  but  we 
found  a  friend  with  knowledge  of  our  sys- 
tem that  he  willingly  shares. 

Jeffery  Sanders 
Beckley,  WV 

We're  glad  to  hear  that  XEGS  buyers  are 
discovering  the  excellent  computer  hid- 
ing inside.  Now,  if  only  Atari  would  do 
a  bit  more  to  spread  the  word.  We  could 
still  end  up  with  an  8-bit  renaissance!— 
ANTIC  ED 


SIDEWAYS  PRINT  PROBLEMS 

Running  an  expanding  business  using  my 
Atari  800XL,  I  found  my  spreadsheets 
were  getting  too  big  for  single-sheet  pages, 
so  I  recalled  a  sideways  spreadsheet  pro- 
gram, Tapeless  Spreadsheet  Printer,  from 
the  August  1987  issue.  I've  typed-in  arti- 


cles before  and  had  no  problem  running 
them  on  my  Atari  XMM801  printer,  but 
Tapeless  was  no  go.  HELP! 

Larry  Whiting 
Surrey,  BC,  Canada 

Tapeless  Spreadsheet  Printer  does  not 
work  with  ALL  Epson-compatible 
printers.  Because  the  program  dotvn- 
loads  a  sideways  character  set  to  the 
printer,  it  will  only  work  with  a  printer 
that  has  the  built-in  RAM  to  use  an  al- 
ternate character  set.  The  program  was 
not  designed  for  the  Atari  XMM801,  un- 
fortunately—kH\\C  ED 


RAMBRANDT  IN  COLOR 

How  can  I  get  RAMbrandt  to  print  or 
dump  graphics  onto  my  Star  NX-1000 
Rainbow  printer?  Is  there  a  utility  program 
I  should  be  using? 

John  McCarthy 
Brockton,  MA 

RAMbrandt  can  only  print  in  black  and 
white,  unless  you  have  an  Okimate  20 
color  printer  To  get  your  pictures  to  print 
in  color,  you  can  save  them  in  Micro  Il- 
lustrator format  from  RAMbrandt.  Then 
you  can  use  YEMACYB/4  software 
($29-95)  from  Electronical  Software,  P.O. 
Box  8035,  Rochester,  MI  48063.  This  color 
screen  dump  utility  can  print  your  Micro 
Illustrator  formatted  pictures  in  full 
color  -ANTIC  ED 


Antic  welcomes  your  feedback,  but 
we  regret  that  the  large  volume  of  mail 
makes  it  impossible  for  the  Editors  to 
reply  to  everyone.  Although  we  do 
respond  to  as  much  reader  correspon- 
dence as  time  permits,  our  highest  pri- 
ority must  be  to  publish  I/O  answers 
to  questions  that  are  meaningful  to  a 
substantial  number  of  readers. 

Send  letters  to:  Antic  I/O  Board, 
544  Second  Street,  San  Francisco, 
CA  94107. 
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NEW  PRODUCTS 


LABELMASTER, 
SMALL  BUSINESS 
SYSTEM  H^^^ 


(applications  software) 
Black  Moon  Systems 
P.O.  Box  152 
Wind  Gap,  PA  18091 
32K  disk 

Maintain  your  mailing  lists  and  print 
out  the  labels  you  want  with  Label- 
Master  Version  1.6.  This  powerful  tool 
lets  you  design  labels  with  up  to  six 
lines  and  a  width  of  34  characters,  and 
create  and  edit  your  data  onscreen. 
Multi-Column  Lister  Version  1.2 
makes  it  possible  for  you  to  print  your 
LabelMaster  data  files  in  one  to  four- 
column  formats,  on  labels  or  paper. 
This  utility  works  with  Epson  (and 
most  compatible)  printers.  The  two  are 
sold  as  a  package,  for  only  $10. 

Both  LabelMaster  and  Multi-Column 
Lister  are  included  in  SBS,  The  Small 
Business  System  ($30),  a  group  of  pro- 
grams designed  to  help  run  a  small 
business.  The  program  modules  in- 
clude Invoicing,  Purchasing,  Income 
and  Expense  Entry,  End  of  Year  Inven- 
tory, and  Reports.  Reports  can  be 
generated  by  month,  any  group  of 
consecutive  months,  or  by  year.  The 
Reports  Module  even  includes  a  Sales 
and  Tax  Report  and  a  Profit/Loss 
Report. 


PAGE  MARSHAL 

(publishing  software) 

Valar  Software 

115  Vale  Road 

Portslade  Sussex 

BN41  IGE  England 

26.64  Pounds  Sterling  (remittance  in 

U.K.  funds  required.) 

XL/XE  with  minimum  64K,  joystick, 

Epson  compatible  Dot  Matrix  printer 

with  interface. 

Page  Marshal  is  a  suite  of  programs 
forming  a  user-friendly,  text-with- 
graphics  Page  Processing  System.  Origi- 


nally developed  as  a  structured  pro- 
gramming chart  drafting  tool,  the  sys- 
tem can  also  produce  electronics 
diagrams,  business  forms,  statistical 
charts,  graphs,  tree  structure  charts  and 
musical  scores — not  to  mention  stan- 
dard uses  for  desktop  publishing,  such 
as  advertisements  or  newsletters.  A  dif- 
ferent character  set  or  font  can  be  used 
on  every  line,  and  a  wide  range  of  cus- 
tom font  files  is  included. 

The  screen  display  exactly  mimics 
the  printed  copy.  The  program  can 
work  with  an  entire  page  in  RAM,  up 
to  80  columns  wide  and  80  lines  deep. 
Any  DOS  2.5  compatible  word  proces- 
sor can  produce  text  files  for  this  sys- 
tem, or  text  can  be  entered  in  Page 
Marshal's  own  Typer  mode 


PS  USER  UTILITY  DISK  hhi^ 

(utility  software) 
No  Frills  Software 
800  East  23rd  Street 
Kearney  NE  68847 
$31.95,  48K  disk 

The  PS  USERS  UTILITY  DISK  con- 
tains a  set  of  utility  programs  for  use 
with  Broderbund's  Print  Shop.  The 
icon  viewer  lets  you  load  four  icons  at 
a  time  and  an  icon  cataloger  sets  you 
print  specified  icons.  Font  and  border 
catalogers  are  also  included.  Other  op- 
tions let  you  delete,  rename  or  unde- 
lete your  PS  files,  or  even  automati- 
cally transfer  PS  icons  from  one  disk 
to  another  Additional  features  let  you 
mix  PrintShop  graphics  with  Atari 
fonts,  to  print  custom  labels  and 
bookmarks. 


EDITS, 

THE  ENHANCEMENT 

(utility  software) 
Logic  One 
RO.  Box  18123 
Cleveland,  OH  44118-0123 

Instantly  examine  and  modify  your 


programs  with  EDITS  ($995),  the  one 
and  only  RAMdisk  sector  editor.  The 
editor  works  with  Binary  or  BASIC 
programs,  text  or  data,  and  includes 
dual-display  and  a  restore  feature.  Ac- 
cording to  Logic  One,  EDITS  works 
with  all  upgrades,  under  DOS  2.5  or 
SpartaDOS  3.2. 

Also  from  Logic  One,  The  En- 
hancement ($7.95)  lets  you  use  your 
RAMdisk  like  a  real  disk.  Working  with 
Atari  DOS  2.5  or  SpartaDOS,  The  En- 
hancement lets  DOS  know  when  to  re- 
cover and  when  to  set  up  the  RAM- 
disk,  making  it  both  automatic  and 
"coldstart  safe"  —  every  time. 


ATARIWRITER 

PLUS  PATCH  ^^^^^^ 

(utility  software) 

LVAUG 

c/o  AW -I-  Patch  ■ 

RO.  Box  1307 

AUentown,  PA  18105 

$5,  SpartaDOS  2.3  or  32 

Lehigh  Valley  Atari  Users  Group 
(LVAUG)  is  now  offering  Craig 
Gaumer's  patch  which  allows  you  to 
use  your  copy  of  AtariWriter  Plus  with 
SpartaDOS  2.3  or  3.2.  With  this  patch 
you  can  run  AW-f  from  a  RAMdisk  or 
hard  drive,  Exit  to  SpartaDOS  and  re- 
turn to  AW+  without  losing  your 
working  copy,  read  directories  of 
drives  1  through  8  directly  from  the 
AW+  menu,  and  more.  Documentation 
is  supplied  on  disk  along  with  the 
patch. 


Neiv  Products  notices  are  compiled  by 
the  Antic  staff  from  information 
provided  by  the  products'  manufac- 
turers. Antic  welcomes  such  submis- 
sions, but  assumes  no  responsibility 
for  the  accuracy  of  these  notices  or  the 
performance  of  the  products  listed. 
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mTOR 


Fast  multi-file  text  finder 


By  Jeffrey  Summers,  MD 


Ever  try  to  find  a  specific  bit  of  text 
when  you  forgot  what  file  it  was  in? 
Save  time  and  frustration  by  letting 
Super  Locator  do  the  searching  for  you. 
This  BASIC  program  works  on  8-bit 
Atari  computers  with  48K  memory  and 
a  disk  drive. 


If  you  use  your  Atari  8-bit  for  word 
processing,  sooner  or  later  you  will 
forget  which  file  contains  some  vital 
piece  of  information.  Previously,  the 
only  way  to  find  that  lost  information 
was  to  load  files  one-by-one  into  your 
word  processor,  search  for  the  desired 
phrase  and  if  it  wasn't  in  that  file, 
move  on  to  the  next. 

This  very  time-consuming  process 
can  make  you  wonder  why  you  ever 
gave  up  your  trusty  typewriter  to  be- 
gin with.  Now,  Super  Locator  can 
make  finding  your  text  relatively  pain- 
less. Super  Locator  will  quickly  search 


all  the  files  on  your  disk  for  any  speci- 
fied string. 

GETTING  STARTED 

To  see  how  it  works,  type  in  List- 
ing 1  and  check  it  with  TYPO  IL  Be 
sure  to  SAVE  a  copy  to  disk  before  you 
RUN  it. 

If  you  have  trouble  typing  the  spe- 
cial characters  in  lines  10000-10030, 
don't  type  them  in.  Instead,  type  List- 
ing 2,  check  it  with  TYPO  II  and  SAVE 
a  copy.  When  you  RUN  Listing  2,  it 
creates  these  hard-to-type  lines  and 
stores  them  in  a  file  called  LINES.  LST. 


To  meige  the  two  programs,  LOAD 
"D:LOCATOR.BAS"  and  then  ENTER 
"D:  LINES.  LST."  Remember  to  SAVE 
the  completed  program  before  you 
RUN  it. 

To  use  Super  Locator,  RUN  the  pro- 
gram and  insert  a  disk  with  several 
word  processing  text  files  on  it.  Su- 
per Locator  asks  which  files  it  should 
search,  giving  you  the  chance  to  nar- 
row your  search.  Simply  press  [RE- 
TURN] to  search  all  the  files  on  the 
disk  in  Drive  1. 

Entering  a  directory  specifier  limits 
the  search  and  enables  you  to  search 
the  files  on  a  different  disk  drive.  The 
directory  specifier  is  the  same  as  you 
would  use  with  DOS.  For  example,  if 
all  of  the  files  you  wish  to  search  are 
on  the  disk  in  your  second  disk  drive 
and  end  with  the  extender  .TXT,  you 
would  enter  "D2:*.TXT". 

If  you  could  further  limit  this  to 
files  that  started  with  the  letter  A,  you 
would  enter  "D2:A  *  .TXT".  To  check 
all  of  the  files  on  Drive  2,  enter 
"D2:*.*". 

Next,  you  are  asked  for  the  string 
you  want  to  find.  This  string  may  have 
up  to  20  characters.  The  program  also 
asks  if  the  search  should  be  case  sen- 
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sitive,  distinguishing  between  upper- 
case and  lowercase  letters.  Although 
you  can  enter  lowercase  characters 
into  the  string,  be  careful  to  use  only 
capital  letters  when  answering  other 
prompts. 

End  the  string  with  [RETURN].  The 
program  clears  the  screen  and  lists  the 
names  of  the  files  it  is  checking  as  it 
goes  along. 

If  the  program  finds  your  specified 
string,  the  string  is  displayed  on  the 
screen  along  with  the  text  immedi- 
ately preceeding  and  following  it. 
This  lets  you  check  the  context  of  the 
phrase  you  are  searching  for,  to  make 
sure  that  this  is  the  instance  you 
wanted  to  find. 

For  instance,  if  you  were  looking 
for  a  specific  recipe  for  chocolate  chip 
cookies,  on  a  disk  full  of  recipes,  you 
could  search  for  the  string  "choco- 
late". Your  results  might  look  like  this: 

CHECKING  Dl:DOS.SYS 

CHECKING  Dl:AUTOMATE.TXT 


CHECKING  Dl:  LETTER.DOC 
CHECKING  DliRECIPE.CPJ 
Found  in  file  DliRECIPE.CPJ 
CHARLIE'S  FAMOUS  CHOCOLATE 
CAKE  THE 

VING  FROM  PANS.  CHOCOLATE 
FROSTING 

DM.  &  KEN'S  MOCHA  CHOCO- 
LATE CHEESECAKE 

ACKAGE  SEMI-SWEET  CHOCO- 
LATE CHIPS 

RECIPE.CPJ  looks  like  a  good  place 
to  look  for  that  recipe.  If  you  know 
the  exact  title  of  the  recipe,  you  could 
specify  "Toll  House  Cookies,"  instead. 
But  if  your  search  is  too  narrow,  you 
risk  missing  your  text  because  of 
slightly  different  wording,  punctua- 
tion or  spelling. 

Each  time  the  program  finds  the 
string,  it  will  ask  whether  you  wish 
to  Continue  searching  (the  program 
will  continue  to  check  that  same  file 
for  another  occurrance),  move  to  the 
Next  file  and  continue  the  search,  or 


stop  (Exit).  When  the  program  has 
gone  through  all  of  the  files  specified 
on  the  disk,  the  program  stops. 

PROGRAM  LOCATING 

Super  Locator  does  not  distinguish 
between  word  processing  files  and 
programs.  Thus,  you  can  also  use  Lo- 
cator to  search  a  disk  for  a  program 
that  may  use  a  particular  prompt.  You 
can  look  for  anything  in  a  quoted 
string  or  a  BASIC  REM  statement.  You 
can  even  search  for  text  within  ma- 
chine language  programs.  The  "con- 
text" may  be  meaningless  in  these  in- 
stances, but  the  program  will  find  the 
data  in  any  case.  A 

Rochester,  New  York  physician  Jeffrey 
Summers  has  written  numerous  useful 
programs  for  Antic,  including  Antic 
Data-X  (Revision  B  appeared  in  the  De- 
cember 1988  issue)  and  Job  Jar  Atari 
Qanuary  1989)- 

Listing  on  page  34 
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ALPHA  SYSTEMS  Is  consianily  Innovating  to  provide  more  powe 
lor  your  8-bc(Ataris 


HACK  BACK 

Special  OFFER 

The  Alpho  Systems  HACK  PACK  contains  oil  our 

finest  products  tor  moking  Baci<-up  copies, 

Analyzing,  Understonding  and  Protecting  your 

Atari  programs  It  comes  complete  with  Atari 

Protection  Techniques  (Book  and  Disk  I),  Advanced  Protection  Techniques  (Book  and  Disk  li),  The 

Chipmunk,  The  Scanalyzer  The  Impersonator  and  Disk  Pock  1000  Worth  over  S 1 50.  Gel  Ihem  oil 

tot  ttie  special  price  ol    Jusf  $M.95 

Atari  Software  Protection  Tecliniques  Vol  I  &  II 

These  Book  and  Disk  packages  detail  the  mos!  advanced  copy  protection  methods  in  use  today  They 
guide  you  through  the  methods  used  to  cieote  the  protection  as  well  as  ttie  copying  techniques  to  get 
around  them  They  include  intormation  on  Phreaking  •  Hacking  •  On-line  security  -'Black  boxes  •  Seit- 
destrucling  programs  •  Pirate  bulletin  board  systems  •  Logic  bombs  •  New  piracy  taws  •  Hardware 
dato  keys  •  Weak  sectoring  (Phantom,  Fuzzy  and  unstable  sectors)  •  Oveitilled  tracks  •  CRC  errors 
Bank  Select  corttldges  and  IvIUCH.  IvIUCH  MORE.  The  disks  include  outomalic  program  piolectors. 
Protection  Scanners,  directory  hiding  and  more. 
BOOK  I  and  DISK  I  $24.95 

BOOK  II  (Advanced  protection)  and  DISK  II    i24.95 
Special  Oiler,  Order  botti  sets  lor  Only  $39.95 

CHIPMUNK 

Automatic  Disk  Back-Up  System.  Ivloke  perfectly  running  unprotected  bock-up  copies  ol  hundreds  ol 
the  most  popular  Alan  programs.  Chipmunk's  sophisticated  programming  Automoticallv  linds  and 
REMOVES  copy  protection  from  most  Atari  programs.  Back-up  even  heavily  protected  programs  with 
ease.  Finally  a  back-up  system  that  needs  no  special  hardware  or  skills, 
(It  you  need  o  full  lisl  of  whot  Chipmunk  copies,  call  or  write  tor  out  free  cotolog)  $34.95 


.1  y_l  ^i  K.*.M  "JIM  lA^^A  A  1  T  k^  \p?^n  All  New  Parrot  sound  a 


•^      iliilh 


digitizer  for  your  Atari.  Parrot  II  is  a 
sophisticated  new  hardware  device  that  plugs  into  your  joystick 
port.  Parrot  II  has  two  inputs.  One  tor  a  microphone  and  one  for  o 
powered  source  such  as  a  tape  ployer,  radio  or  Compact  Disk, 
The  Poweiful  Parrot  II  software  lets  you  record  sounds  into  your  computer  and  play  Ihem  back  on  any 
Atari.  Parrot  II  luins  your  computers  keyboard  into  a  musical  instrument  with  nine  dilletenl  sounds 
coveting  three  ocloves  each  The  sounds  can  be  anything,  a  dogs  bork,  a  piano,  o  complete  drum 
set,  a  symphony  or  your  own  voice. 

Parrot  II  lets  you  modify  the  sounds  on  a  graphic  display  to  create  brand  new  sounds  and  special 
effects  Best  ol  all.  the  sounds  ond  voices  can  be  put  into  your  own  programs  that  con  be  used  on 
any  standard  Atari.  Explore  the  woild  ol  digital  sound  and  music.     ONLY  $59.95 
Pre-Recorded  Sound  Disk  tvlore  pre-recorded  sounds  for  Parrot  $4.95 
RARROT II  Demo  Disli  (Does  not  retiuire  Parrot  I0  run)  $5.00 


POP-N-ROCKER 


Scanalyzer  Automatically  scon  &  analyze  commercial  programs.  Unlock  programming  seciets  and 
leorn  from  the  masters  $29.95 

tmpersonolor  Cortndge  to  Disk  bock  up  system.  Create  running  back-up  copies  of  any  cartridge 
— =Ml» (uplo16K)    S29.95 

X^^  CHEAT 

Get  more  from  your  games  with  CHEAT  Tired  of  spending  days  trying  to  beat  a  gome?  Tired  ot  getling 
stuck  jusi  when  you  need  another  life?  Cheat  is  an  innovative  new  product  ttiat  gives  you  Ihe  chance 
you  need  to  beat  your  lavorite  gomes,  Cheat  works  with  hundreds  ot  Atari  gomes  to  give  you 
unlimited  lives  or  power.  End  the  frustration  and  gel  hours  more  enjoyment  from  your  gomes.  (Coll  or 
write  Alptio  Systems  for  our  free  catalog  wilti  o  full  list  of  the  progroms  that  work  with  Cheot)    ONIY  $24.95 

BASIC  TURBOCHARGER 

NOW  (or  Ihe  first  time  o  BASIC  progrommer  can  get  the  power,  (lexibilitv  and  incredible  speed  of 
machine  language,  BASIC  TURBOCHARGER  is  o  book  and  disk  package  that  contains  over  1 50 
reody  to  use  machine  longuoge  routines.  Complete  instructions  show  how  to  ocid  them  to  your  own 
BASIC  programs  to  get  these  features  and  more:  •  Smooth  Scrolling  •  Player/Missile  control  •  Load  & 
Save  Picture  files  ■  Sorting  and  Searching  •  Special  Effects  Graphics  •  Incredible  Speed  •  Much,  Much 
More '  Over  1 50  progroms.  You've  heord  of  the  power  of  Assembler,  now  harness  it  for  your  own 
needs.   524  95 


GIANT  W&LL  SIZED  POSTERS. 


YETEMB 


216-374-7469 

VISA  ti  MASTEDCARO,  ORDED  BV 
PHONE,  OR  SEND  MONEY  ORDER  TO: 


0  lost  paced,  multi-player  Iriuia  gome  thol  mixes  questions 

with  leol  songs  ((tigilized 
with  Panot).  Be  the  first  to  identify  the  songs  and  answer  the  music  trivia  questions,  Pop-N-Rocker 
comes  With  three  data  disks  and  lels  you  add  new  questions  so  it  will  nevet  get  old,  Vbu  con  use  o 
Parrot  Sound  digitizer  to  odd  new  songs  too!  Use  any  kind  of  music  from  Rock  to  Classical  to 
Nufsory  Rhymes.  A  new  concept  in  enferloinihent  and  o  perlect  add-on  for  Parrot^ W4.9S_ 

COMPUTEREYES  &  M AGNIPRINT  II  + 

Turn  your  computer  into  a  digital  portrait  studio.  This  complete  package  lets  I 

you  capture,  save  &  print  digital  images  from  your  Video  Camera,  VCR 

or  TV.  COMPUTEREYES  hardware  plugs  directly  into  your  joystick  ports  for 

easy  use,  Print  your  picture  on  a  6  foot  poster  $<|i9.95 

ComputerEyes  camera  system 

Comes  complele  with  everything  above,  plus  a  block  and  white  video       ^'""■^■.r^ ^'^ 

camera  and  connecting  coble.    $329.95  ■fe'/y»."todB 

Graphics  9  Software  -  Add  o  new  dimension  to  your  COMPUTEREYES 

pictures  ■  captures  images  in  1 6  shades  of  grey,  $12.00 

Magnlprint  II  + 

Easily  the  most  powerful  print  progrom  available  today  Print  graphics  from  almost  any  format  in 

hundreds  of  shapes,  sizes,  and  shades.  Supporls  color  printing  and  lets  you  create  giant  posters. 

Magnlprint  tl  +  lets  you  stretch  ond  squeeze,  invert,  odd  text,  adjust  shading  and  much  more. 

Works  with  EPSON,  NEC,  Citoh,  Panasonic,  Gemini,  Star,  XMM801 ,  and  compatible  printers,  (850 

interface  or  equivalent  required),  $24.95 

Graphics  Ik^ansformer 

Now  you  can  combine  Ihe  most  poweriul  features  of  all  your  grophics  programs.  Create  print  shop 

icons  from  a  Koala  pod  picture,  from  o  photo  digitized  with  ComputerEyes,  or  any  picture  file. 

Grophics  Tronslormer  lets  you  Shrink,  Enlarge  and  Merge  pictures  for  unequoled  flexibilify,     $22.95 

YOUR  ATARI  COMES  ALIVE 

SAVE  MONEY  Finally  on  alternative  to  buying  expensive  computer  add-ons.  Your  Atari  Comes  Alive 
shows  you  how  to  built  them  yourself.  This  'How-To'  book  ond  disit  package  gives  you  complete 
step  by  step  instructions  and  programs  needed  lo  built  ond  control  these  exciting  devices  and  MORE: 
•  Light  Pen  •  Light  &  Motor  Controllers  -Alarm  Systems  •  Voice  Recognition  •  Environmental  Sensors 
•Data  Decoders  •  More  than  1 50  pages  Ifour  Atari  Comes  Alive  $24.95 


AlPHA  SYSTEMS  1012  SKYLAND  DRIVE  MACEDONIA,  OH  44056      FREE  BONUS:  DELUXE  SPACE  GAMES  f3  games 
on  a  tlisk)  Free  willi  any  order  ol  3  or  more  items.  Include  S3.00  stip  &  hdig  (US  Conado)  Ohio  res  add  5  '/2%  sales  rox 
Foteign  orders  odd  S8,00srip&  rildg.  Call  or  wrile  lorlree  colalog.  Cuslomer  Service  Line  (216)  467-5665  M-F  9-3 
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AUTORUN 


7}pi'-lii  Sojiwai-e 


Selector 


Total  control  over  your  settings 


By    Jason     Strautman 


Ever  known  the  frustration  of  trying  to  get  to  DOS  from  a 
disk  with  an  AUTORUN.SYS  file  on  it?  AUTORUN  Selector  lets 
you  disable  the  AUTORUN  file  on  booting,  with  just  the  press 
of  a  button.  This  short  BASIC  utility  (translated  from  machine 
language)  works  on  all  8-bit  Atari  computers  with  disk  drive. 


If  you're  like  me,  you've  got  a 
lot  of  disks  with  AUTO- 
RUN.SYS files  on  them.  And  if 
you're  like  me,  sometimes  you 
need  the  familiar  DOS  menu  for 
file  copying  and  other  housekeeping 
tasks.  So  I  always  had  to  keep  a  sepa- 
rate disk  with  no  AUTORUN  fUes,  just 
DOS.SYS  and  DUP.SYS,  for  the  times 
I  needed  the  DOS  menu.  This  seemed 
like  a  waste  of  a  disk,  so  I  designed 
a  short  solution,  AUTORUN  Selector. 
When  you  append  AUTORUN 
Selector  to  your  favorite  AUTO- 
RUN.SYS files,  the  next  time  you  need 
to  go  to  DOS,  just  press  the  [SELECT] 
key  as  you  boot  the  disk  and  AUTO- 
RUN Selector  will  skip  over  your  AU- 


TORUN.SYS file  and  load  DOS. 

GEHING  STARTED 

Type  in  Listing  1,  SELECT.BAS, 
check  it  with  TYPO  II  and  SAVE  a 
copy  before  you  RUN  it.  When  RUN, 
SELECT.BAS  creates  the  machine  lan- 
guage program,  SELECT.EXE,  and 
writes  it  to  your  disk.  Antic  Disk  Sub- 
scribers will  find  SELECT.EXE  on  the 
monthly  disk. 

Listing  2,  SELECT.  M6  5,  is  the 
MAC/65  source  code.  You  do  not  need 
to  type  it  in  to  use  AUTORUN  Select. 

Before  AUTORUN  Selector  will 
work,  you  must  appended  the  SE- 
LECT.EXE fUe  to  the  top  of  the  AU- 
TORUN.SYS file  you  want  it  to  work 


with.  Here's  how  to  do  it: 

1.  Make  backup  copies  of  SE- 
LECTEXE  and  the  AUTORUN.SYS  file 
you  need  to  modify.  Keep  the  origi- 
nals in  a  safe  place — we'll  work  with 
the  backups. 

2.  Type  DOS  to  bring  up  the  DOS 
2.0  (or  DOS  2.5)  menu.  Make  sure  SE- 
LECTEXE  and  your  AUTORUN.SYS 
file  are  on  the  same  disk. 

3-  Type  the  following: 

C  [RETURN] 

AUTORUN. SYS, SELECT.EXE/A 
[RETURN] 

This  copies  your  AUTORUN.SYS 
file  onto  the  end  ofSELECT.EXE.  The 
SELECT.EXE  file  now  contains  AUTO- 
RUN Selector  and  a  copy  of  your  AU- 


JUNE  1989 


HAVE  A  QUESTION 

ABOUT  YOUR 

SUBSCRIPTION? 

Get  an  answer  fast! 

Call 
(415)372-6002 

Write: 

Antic  Customer  Service 

P.O.  60x1569 

Martinez  CA  94553 


TORUN.SYS  file. 

4.  Delete  the  AUTORUN.SYS  file. 
You  don't  need  it  anymore  because 
SELECT.EXE  contains  a  copy  of  it. 

5.  Rename  SELECT.EXE  to  AUTO- 
RUN.SYS. 

This  AUTORUN.SYS  fUe  is  the  fin- 
ished product.  The  AUTORUN.SYS 
file  will  load  and  run  just  as  it  did  be- 
fore, whenever  you  boot  the  disk.  If 
you  press  the  [SELECT]  key  while 
booting,  AUTORUN  Selector  will  skip 
over  your  AUTORUN.SYS  file  and 
load  DOS  instead.  Make  sure  you  have 
the  DUP.SYS  file  on  your  disk  when 
you  do  this. 

AUTORUN  Selector  wUl  also  work 
whenever  you  press  [SELECT]  and 
any  other  console  key.  For  example, 
XL/XE  owners  who  want  to  use  AU- 
TORUN Selector  with  a  program  that 
doesn't  use  BASIC  can  simply  press 
both  the  [SELECT]  and  [OPTION] 
keys  while  booting. 


AUTORUN  Selector  first  checks 
DOSVEC  (10,  SOA)  for  the  address  to 
branch  to  if  DOS  is  selected.  Next,  it 
takes  the  value  from  CONSOL  (53279, 
SDOIF)  and  determines  which  con- 
sole keys  are  being  pressed.  If  bit  1  of 
CONSOL  is  clear,  the  [SELECT]  key  is 
being  pressed.  This  is  true  even  when 
the  [SELECT]  key  is  pressed  along 
with  other  console  keys. 

If  [SELECT]  is  not  pressed,  AUTO- 
RUN Selector  continues  to  load  the 
rest  of  your  AUTORUN.SYS  file. 

Otherwise,  if  [SELECT]  is  pressed, 
AUTORUN  Selector  jumps  to  the  ad- 
dress it  took  from  DOSVEC  and  loads 
DUP.SYS  which  contains  the  DOS 
menu.  A 

Jason  Strautman  lives  in  San  Antonio, 
Texas  and  has  been  programming  for  the 
last  five  years.  This  is  his  first  appearance 
in  Antic 
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Customizing  the  Atari 
Operating  System 
Device  Handlers: 


Part  1 


By  Bob  Martin  &  Martin  Mercorelli 


This  article,  the  first  of  a  two-part  series  for 

experienced  BASIC  programmers,  explains  how  the 

Atari  operating  system  handles  the  various  devices 

attached  to  your  computer  and  gives  you  a  step-by-step 

approach  to  adding  a  new  device  handler  or  modifying 

an  existing  one.  The  BASIC  programs  work  with  any 

Atari  8-bit  computer,  disk  or  cassette 


The  ability  to  change  your  com- 
puter's operating  system  is  a  very 
powerful  technique.  Atari  8-bit 
owners  are  in  for  a  treat,  because  there 
are  several  ways  to  customiae  your  sys- 
tem through  software.  To  illustrate, 
two  programs  are  included  with  this 
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article.  The  first  creates  a  device  han- 
dler that  does  nothing.  (Believe  it  or 
not,  that  can  be  useful.)  The  second 
modifies  the  printer  handler  to  print 
non-printing  characters. 

The  printer  handler  vras  written  for 
the  Epson  RX-80  and  the  C.Itoh 


Prowriter,  but  it  should  work  with 
any  printer  capable  of  dot-graphics 
printing.  Each  program  illustrates  a 
different  aspect  of  creating  device 
handlers. 

What  good  is  adding  a  device  han- 
dler to  the  operating  system  instead 


of  having  your  program  perform  the 
same  function?  To  answer  this,  let's 
look  at  how  the  operating  system  in- 
teracts with  the  outside  world. 

CIO  ROUTINE 

Among  the  Atari  operating  system's 
best  features  is  the  way  it  handles  in- 
put and  output  (I/O).  All  I/O  opera- 
tions are  generally  performed  in  the 
same  way,  regardless  of  which  periph- 
eral device  is  accessed— disk  drive, 
keyboard,  screen  editor  or  printer.  We 
can  simplify  I/O  because  it's  normally 
handled  through  the  Central  In- 
put/Output routine  (CIO). 

In  BASIC,  I/O  is  done  so  naturally 
that  you  hardly  notice  the  complex- 
ity of  what  is  actually  happening.  One 
example  is  the  use  of  CIO  to  send  data 
to  the  printer: 

First,  open  the  device  through  a 
CIO  control  block  with  the  command 
OPEN  #3,8,0,"P:".  This  does  three 
things:  1)  it  tells  the  operating  system 
to  OPEN  CIO  control  block  #3 
(IOCB3)  for  I/O  and  to  prepare  for  I/O 
to  the  printer;  2)  the  8  tells  the  oper- 
ating system  that  data  will  flow  from 
the  computer  to  the  printer;  and  3) 
the  "P:"  tells  the  computer  to  send 
data  to  the  printer.  Therefore  the 
OPEN  command  is  for  initialization. 

Summing  up,  a  device  handler  sim- 
ply tells  the  computer  how  to  talk  to 
a  device.  The  computer  needs  to 
know  the  direction  of  data  flow, 
which  path  (or  channel)  it  will  use, 
where  to  find  data,  where  to  put  it  and 
how  much  of  it  to  grab. 

DEVICE  HANDLERS 

If  CIO  is  the  computer's  I/O  inter- 
face to  the  user,  then  the  device  han- 
dlers are  the  computer's  interface  to 
peripheral  devices. 

For  example,  how  does  the  com- 
puter send  data  to  the  printer?  Since 
the  printer  isn't  a  disk  drive  or  key- 
board, your  Atari  obviously  needs  a 
special  routine,  which  is  part  of  the 
device  handler 

Each  device  handler  has  six  rou- 
tines: OPEN,  CLOSE,  GET,  PUT,  STA- 


TUS, and  SPECIAL  (See  Figure  1).  In 
BASIC  these  machine  language  rou- 
tines are  controlled  through  I/O  com- 
mands. For  example,  when  your  pro- 
gram issues  the  command  OPEN 
#3,8,0,"P:"  it  is  actually  using  the 
OPEN  part  of  the  printer  handler 

Every  handler  contains  six  machine 
language  routines  and  a  table  contain- 
ing the  address  of  each  routine  minus 
one. 

Why  the  minus  one?  CIO  accesses 
a  function  by  pushing  its  address  onto 
the  stack,  then  executing  an  RTS  (Re- 
TUrn  from  Subroutine).  The  RTS  in- 
struction directs  the  program  to  the 
address  on  the  stzck  plus  one.  To  ar- 


Each 

device  handler  has 

six  routines. 


rive  at  the  correct  address,  we  must 
compensate  by  subtracting  one  from 
our  target  address. 

HATABS 

CIO  finds  the  address  of  the  appro- 
priate handler  table  in  the  Handler  Ad- 
dress Table,  HAIABS.  This  table  is  a  38- 
byte  block  of  memory  occupying  lo- 
cations 794—831  ($031A— $033F). 

Each  device  handler  has  its  own 
three-byte  entry  in  the  Handler  Ad- 
dress Table.  The  first  byte  is  an  ASCII 
character  representing  the  name  of 
the  device  (K  for  keyboard,  D  for  disk 
drive,  etc.).  The  next  two  bytes  hold 
the  address  of  that  device's  handler 
table. 

When  you  issue  an  OPEN 
#3,8,0,"P:"  command,  for  example, 
CIO  looks  through  HAT\BS  for  a  "P". 
Then  it  uses  the  next  two  bytes  to  find 
the  address  of  the  printer's  handler  ta- 
ble. Once  found,  CIO  searches  the 
printer's  handler  table  for  the  address 
of  the  printer  handler's  OPEN  routine. 


Finally,  CIO  executes  the  printer  han- 
dler's OPEN  routine  (See  Figure  2). 
Again,  CIO  finds  the  handler  in  two 
steps: 

-  1)  Get  the  address  of  the  appro- 
priate handler  table  from  HATABS. 

-  2)  Get  the  address  of  the  handler 
routines  from  the  handler  table. 

WRITING  YOUR  OWN 
HANDLER 

Now  that  we  know  how  CIO  lo- 
cates the  handler  table,  here's  how  to 
make  your  own  handler: 

1)  Write  the  program  for  the  han- 
dler. (The  handler  must  have  the  func- 
tions listed  in  Figure  1.) 

2)  Set  up  a  Handler  Table  with  the 
address  of  each  function  (minus  one) 
in  the  order  given  in  Figure  1.  The 
special  function  is  a  jump  instruction 
beginning  with  a  decimal  76,  fol- 
lowed by  the  two-byte  address  of  the 
special  routine. 

3)  Make  an  entry  in  the  Handler  Ad- 
dress Table  for  the  device. 

That's  all.  Now  let's  focus  on  the 
two  examples  and  how  they  imple- 
ment these  steps. 

NULL  HANDLER 

Type  in  Listing  l.NULLHAND.BAS, 
check  it  with  TYPO  II  and  SAVE  a 
copy  before  you  RUN  it.  When  RUN, 
NULLHAND.BAS  installs  the  Null 
Handler,  N:,  on  Page  Six.  Once  in- 
stalled, you  can  test  the  handler  by 
typing: 

LIST  "N:" 

This  command  LISTs  the  program 
to  the  N:  device.  If  your  Atari  responds 
with  a  "READY"  prompt,  the  handler 
is  properly  installed.  If  you  get  an  er- 
ror message,  however,  something 
went  wrong.  Check  NULLHAND.BAS 
for  typing  errors,  and  try  again. 

One  use  of  the  null  handler  is  to 
check  a  disk  for  a  scrambled  file  (Er- 
ror 164).  One  way  to  check  is  to  use 
DOS  to  copy  the  file  to  the  screen. 
This,  however,  is  quite  time- 
consuming.  Instead,  copy  the  file  to 
the  N:  device.  The  Null  Handler  will 
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do  the  job  in  a  jiffy. 

To  copy  a  file  to  the  Null  Handler, 
select  choice  C  from  the  DOS  menu 
and  type: 

li:filename,N: 

If  the  file  is  read  completely  with- 
out error,  then  it's  intact.  All  the  files 
on  a  disk  can  be  checked  by  typing 

"D:'.*,N:". 

PROGRAM  TAKE-APART 

Listing  2,  NULLHAND.M65,  is  the 
MAC/65  assembly  language  source 
code  for  NULLHAND.BAS.  You  do 
not  need  to  type  it  to  use  the  N: 
handler 

Lines  540-590  contain  the  N:  han- 
dler's routines  (see  step  1,  above). 
Since  the  N:  handler  does  nothing,  all 
six  functions  can  be  handled  by  the 
same  "do-nothing"  routine.  This  rou- 
tine does  nothing  but  end  with  an  RTS 
instruction  and  return  the  appropriate 
error  codes  to  CIO.  All  handler  rou- 
tines must  do  this. 

Ending  in  an  RTS  means  that  CIO 
pushes  the  return  address  on  the  stack 
before  jumping  to  the  handler  This 
feature  is  useful  if  you're  modifying 
an  existing  handler  because  it  gives 
you  two  entry  points. 

Error  codes  are  handled  the  same 
way.  When  CIO  jirnips  to  the  handler, 
the  Y  register  contains  error  code 
146 — "Function  not  implemented  in 
handler."  If  the  Y  register  isn't 
changed,  CIO  will  print  "ERROR 
146"  and  return  control  to  you.  Since 
the  handler  does  nothing,  the  only  er- 
ror message  to  return  is  1,  "No  error 
has  occurred."  It  should  be  in  both  the 
accumulator  and  the  Y  register.  So 
putting  a  1  into  the  A  and  Y  registers 
is  all  this  handler  does  before  execut- 
ing the  RTS. 

Lines  440-520  build  a  Handler  Ta- 
ble for  the  N:  handler  (see  step  2, 
above).  Since  all  the  functions  are  the 
same,  there  are  five  NULL-1  values  fol- 
lowed by  one  JMP  NULL. 

The  Handler  Table  is  always  that 
easy  to  write — although  the  addresses 
usually  aren't  all  the  same.  Just 
remember  to  subtract  1  from  each  of 


FIGURE  1 


Handler  Table  Organization  &  Functions. 


OPEN — Initialize  the  computer  for  I/O. 


CLOSE — Release  the  resources  of  the  computer  for  other 
uses. 


GET— Receive  one  byte  from  the  device.  On  return,  the 
accumulator  holds  the  byte. 


PUT— Put  one  byte  out  to  the  device.  The  byte  is  in  the 
accumulator  on  entry  to  the  put  byte  routine. 


STATUS— Test  the  readiness  of  the  device. 


SPECIAL— Jump  to  a  special  routine  not  covered  above. 


On  entry  to  the  above  handler  routines,  the  X 
register  holds  the  CIO  control  block  number 
and  the  Y  register  contains  a  146  (error  code 
for  function  not  implemented  in  handler)*  On 
return  to  CIO,  the  accumulator  and  the  Y  reg- 
ister contain  the  appropriate  error  code. 


the  first  five  functions. 

Lines  220-420  insert  the  N:  device 
and  the  address  of  the  N:  handler  ta- 
ble into  the  Handler  Address  Table 
(See  step  3)-  This  is  the  most  compli- 
cated part  of  the  program.  Lines  220- 
310  look  for  a  blank  spot  in  HATABS. 
Lines  350-420  place  the  ASCII  value 
for  N  into  HATABS,  followed  by  the 
two-byte  address  of  the  N:  handler  ta- 
ble (low  byte,  high  byte). 

Since  the  letters  indicating  the 
devices  are  separated  by  a  two-byte 
address,  the  routine  that  searches  for 
a  blank  spot  checks  every  third  byte 
in  HAT\BS. 

Finally,  we  place  the  program's  in- 
itialization address,  INSERT,  into  IN- 
ITIO (location  738,  $02E2).  This 
forces  the  program  to  start  as  soon  as 
it  is  loaded  into  memory.  Ending  the 
initialization  routine  with  an  RTS 
returns  control  to  DOS. 

USING  PRINT  HANDLER 

The  modified  printer  handler 
makes  it  easier  to  get  a  hard  copy  of 


a  file  or  BASIC  program  containing 
non-printing  characters  (such  as  the 
"clear  screen"  character).  Normally, 
non-printing  characters  aren't  printed. 
But  a  special  problem  arises  when  the 
printer  recognizes  a  character  as  a 
control  character  Control  characters 
are  acted  upon,  not  printed.  And  at 
the  very  least,  they  produce  a  messy 
printout.  But  with  the  modified 
printer  handler,  a  neat  printout  is  eas- 
ily produced. 

Type  in  listing  3,  PRHAND.BAS, 
checking  it  with  TYPO  II,  and  SAVE 
a  copy  before  you  RUN  it.  When  RUN, 
the  program  will  ask  you  what  type 
of  printer  you  own.  Type  [1]  if  you 
own  an  Epson  printer,  [2]  if  you  own 
a  C.Itoh  printer,  or  [3]  for  other  types 
of  printers.  Next,  press  [RETURN] 
and  the  program  will  create  a  file 
caUed  EPSON.EXE  (or  CITOH.EXE 
for  C.Itoh  owners).  This  is  the  pro- 
gram which  creates  and  installs  the 
new  printer  handler  Antic  Disk  Sub- 
scribers will  find  both  versions  on  the 
monthly  disk. 


JUNE  1989 
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FIGURE  2 

HATABS 

(HANDLER  ADDRESS  TABLE) 
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of  PUT 
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SCREEN  HANDLER  TABLE 
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Address 
of  PUT 
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Address 
of  GET 
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Address 
of  STATUS 

Routine 

Address 

of  SPECIAL 

Routine 

Copy  the  appropriate  .EXE  file  to 
a  DOS  2.0  or  DOS  2.5  disk.  Make  sure 
this  disk  has  a  DOS.SYS  file.  Next,  re- 
name the  .EXE  file  to  AUTORUN.SYS. 
This  disk  will  automatically  install  the 
new  printer  handler  each  time  you 
boot  your  system  with  it. 

Once  installed,  type  POKE 
1791,255  to  activate  the  handler. 
POKE  a  zero  into  1791  to  return  to 
normal  printer  operation.  Your  Atari 
will  use  the  modified  printer  handler 
until  you  turn  off  the  computer  or 
press  [RESET]. 

Listing  4,  PRHAND.M65,  is  the 
MAC/65  source  code  for  the  printer 
handler.  You  do  not  need  to  type  it. 

TAKE  APART 

The  only  difference  in  our  printer 
handler  is  the  PUT  BYTE  routine, 
lines  1030—2570. 

Line  290  jumps  to  the  old  PUT 
BYTE  routine,  and  the  rest  of  it  just 
checks  for  non-printing  characters 
and  supplies  graphics  data. 

For  the  PUT  BYTE  routine,  the  byte 


to  be  sent  is  in  the  accumulator  when 
CIO  jumps  to  the  handler.  This  rou- 
tine first  checks  location  1791  (S06FF) 
to  see  if  the  modification  is  enabled. 
If  so,  it  then  checks  to  see  if  the  byte 
to  be  sent  is  a  non-printing  character. 
For  a  non-printing  character,  the  con- 
trol code  for  eight  dot-graphics  bytes 
is  sent,  followed  by  the  dot-graphics 
data. 

Most  printers  plot  dot  graphics  the 
same  way.  First,  the  printer  is  sent  a 
control  code  enabling  dot-graphics 
mode.  On  Epsons  and  compatible 
printers,  the  code  is  27, 76  ([ESC]-[L]). 
Then  comes  the  number  of  bytes  the 
printer  should  expect.  On  Epsons  and 
compatibles,  a  two-byte  integer  (low 
byte,  high  byte)  is  sent.  The  complete 
command  for  eight-dot  graphics 
mode  bytes  is  27,76,8,0.  On  the 
C.Itoh  and  compatibles,  it's 
27,83,48,48,56  (or  [ESC]-[S]-[0]-[0]- 
[8]).  Then  the  eight  bytes  of  graphics 
data  are  sent  to  the  printer. 

To  use  charaaer  data  from  the  Atari 
internal  character  set,  we  must  make 


it  acceptable  to  the  printer.  Although 
your  Atari  and  your  printer  can  define 
a  character  in  eight  bytes,  they  arrange 
these  bytes  differently. 

The  Atari's  character  set  is  or- 
ganized in  horizontal  slices  starting  at 
the  top,  and  the  printer  needs  verti- 
cal slices  starting  to  the  left  of  the 
character. 

To  change  a  screen  character  data 
for  the  printer,  each  byte  for  the 
screen  must  be  sliced  one  bit  at  a  time, 
re-formed  into  eight  new  bytes  and 
sent  to  the  printer.  In  other  words,  bit 
zero  becomes  byte  one  for  the  printer, 
bit  one  becomes  byte  two,  etc. 

Lines  210-240  contain  the  handler 
table.  This  table  is  even  simpler  than 
the  last  one.  The  new  handler  table 
is  left  blank  so  that  the  old  table  can 
be  copied  to  it.  Notice  that  the  fourth 
two-byte  address  (corresponding  to 
the  location  of  the  PUT  BYTE  rou- 
tine) has  a  label,  making  it  easy  to 
store  the  location  of  the  PUT  BYTE 
routine  in  the  new  handler  table. 

Lines  340-800  contain  the  initiali- 
zation routine.  Lines  340-430  search 
for  the  P:  handler  entry  in  HATABS. 
Then  lines  460-620  copy  the  follow- 
ing address  to  a  zero  page  location 
and  replace  the  P:  handler  table  ad- 
dress with  the  address  of  the  new  P: 
handler.  The  old  PUT  BYTE  address 
is  copied  to  the  jump  instruction  (line 
290)  after  adding  1.  And  the  new  PUT 
BYTE  routine  address  (minus  1)  is 
placed  in  the  new  handler  table.  Fi- 
nally, the  address  of  INSERT  is  stored 
at  $02E2. 

NEXT  MONTH 

Both  handlers  operate  without 
communicating  with  the  user.  The 
ability  to  let  the  user  select  options  is 
often  important  for  a  handler.  In  Part 
2  of  the  series  we'll  add  I/O  to  the 
screen  and  add  everything  necessary 
for  a  complete  handler 

Remember  that  when  writing  a  de- 
vice programmer,  you  only  need  to 
worry  about  half  of  the  I/O 
conversation — CIO  does  the  rest.  A 
Listing  on  page  31 
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ANTIC,  THE  ATARI  RESOURCE 


Type-Ill  Software 


Umn 

Print  Pro 


By  Earl  Haley 


HELP  files  printed  on  half  the  pages. 


Ever  msh  you  could  print  the  HELP  file  from  the  Antic  monthly  disk  in  two 

columns?  Tlvo  Column  Print-Pro  prints  text  files  in  two  columns  on  most 

80-column  printers  This  handy  BASIC  program  works  on  all  8-bit  Atari 

computers  with  at  least  32K  memory,  disk  drive  and  printer 


As  a  thrifty  Atari  owner,  I  don't  lilce 
wasting  half  a  page  of  computer  pa- 
per every  time  I  use  my  80-column 
printer  to  print  40-column  documen- 
tation (such  as  the  Antic  monthly 
disk's  HELP  file).  Inspired  by  the  use- 
ful Doc  Print-Pro  program  in  the 
November  1988  Antic,  I  decided  to 
write  a  similar  program. 

Two  Column  Print-Pro  reads  a  40- 
column  text  file  and  prints  it  in  two 
columns  on  an  80-column  printer — 
without  requiring  you  to  rewind  the 
paper  You  can  print  the  whole  docu- 
ment at  once,  or  have  the  printer 

JUNE  1989 


pause  after  each  page.  Since  the  pro- 
gram doesn't  use  any  printer  control 
codes,  it  should  work  on  just  about 
any  80-column  printer 

GEHING  STARTED 

Type  in  Listing  1,  TWOCOLMN.BAS, 
check  it  with  TYPO  11  and  SAVE  a 
copy  to  disk  before  you  RUN  it. 

If  all  you  ever  plan  to  do  with  this 
program  is  print  the  HELP  file  from 
the  Antic  monthly  disk,  the  program 
will  tell  you  all  you  need  to  know! 
Three  or  four  simple  keypresses  will 
do  it  all. 


The  first  screen  asks  whether  you 
are  using  standard  or  legal  size  paper 
Next,  choose  either  continuous  feed, 
or  a  pause  after  each  page. 

To  print  the  HELP  file  from  an  Antic 
disk,  put  the  disk  in  Drive  1.  With  the 
printer  ready,  choose  option  [l], 
ANTIC  HELP  FILE.  The  program  will 
read  the  HELP  file  and  print  it  in  two 
columns. 

PREPARING  YOUR  OWN 
TEXT  FILES 

To  print  your  own  document  in 
two  columns,  load  any  text  file  into 
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Most  Q-f  the  programs  on  this  disk  are 
written  in  Atari  BASIC.  Some  require 
speci  si  hardware  or  spec  i -fie  operating 
instructi  ons.  Please  read  the  match i  ng 
issue  o-f  ANTIC  Magazine  -for  complete 
document at i  on. 


SUBSCRIPTION  In-fD 
<B00)  Z^7-a96'?. 


Orders 


BACK  ISSUE  Orders:  (800)  234-7001 
(Visa  or  Mastercard  only,  please. ) 


By  popul ar    demand,  we' ve  incl uded 
MORE  music  -files  for  Antic's  AMP 
Music  Processor  (Antic  Disk  Bonus, 
Dec.  1988).   This  side  features 
The  Flight  Qf  The  Bumble  Bee 
(filename  "DzBEE*').   And  we've  put 
a  sleighf ul 1  of  hoi i day  songs  on 
the  back! 

(You  need  the  Antic  Music 
Processor  (AMP. EXE)  to  hear  these 
songs.   It  was  featured  on  the 
Dec.  1988  Monthly  Disk.) 


Whenever  there  i  e  suf f  i  cient  room, 
we  will  be  including  TYPO  II  on 
the  monthly  disks.   TYPO  II  is  in 
LISTed  form,  and  must  be  ENTERed 
before  using.   It  will  not  RUN 
from  the  menu. 


BASIC  saved  program,  use  menu 
RUN  or  LOAD  and  RUN. 

BASIC  listed  program,  ENTER 

then  RUN. 

Assembly  language  ' Load  and 

Go'  file.  Remove  BASIC,  boot 

DOS,  type  L  then  enter  the 

f  i lename. 

Assembl y  language  source  code 

(Atari  Assembler  Editor) 

Must  be  compiled. 

"SAVEd"  MAC/65  assembly 

1  an gu age  source  code. 

Must  be  compiled. 


. OBJ    Machine  1 anguage  object  file. 

Same  as  . EXE  but  not  ' Load  and 

Go'.  See  corresponding  article. 
.SYS    Reserved  for  DOS  system  files. 
,TXT    Te^;t  file.  Usually  accessed 

by  another  program. 
.ACT    ACTION!  language  source  code. 

Must  be  compi led. 
.  LGO    A  Logo  program.   B'equires  the 

Logo  c ar tr i  dge. 


All  programs  from  ANTIC  issues  dated 
prior  to  August  1984  were  reproduced 
from  ANTIC'S  Archive.   We've  updated 
them  from  our  HELP  columns  and 
most  sre    compati  ble  with  the  XL  and 
XE  machines.  We  have  worked  to  insure 
that  our  programs  operate  as 
publ i  shed,  but  we  consider  al 1  our 
software  listings  to  be  worlds  in 
progress  which  we  encourage  you  to 
personal i  SB  and  enhance. 


The  menu  that  appeared  oi 

when  you  booted  the  disk 

RUN  programs  with  a  . BAS  extender. 

If  you  try  to  run  a  program  and  th 

response  is  'cannot  run  Filename', 

check  the  -file  e:;  tender  wi  th  thi  s 

list; 


Gooc 

luck,  and  ENJOY! 

-ANTIC  ED 

the  screen 

ill  only 

your  word  processor  Change  the  top 
margin  to  0,  the  left  margin  to  0,  and 


E&ay   Soan   I  1 


now  supports  Graphic  Modes  9,  10, 
■ell!  Allovs  £or  soae  lapresslre 


The  19S9  Antic  Award  Winner!  (See  May  1989 
Issue)  Easy  Scan  II  Is  now  even  better!  In 
addition  to  uslnr  Graphic  Modes  8  and  IS, 
the  Easy  Scan  11  software  Is  updated,  and 
. „  .    -   '^-   4  li  ,1 

results! 

Easy  Scan,  the  ONLY  laafe  scanner  tor  the 
Atari  S-blt  Une,  yet,  at  an  aKordable 

Price.  Uses  the  latest  In  technoLoIty  - 
Iber  Optics,  to  'scan*  the  laaie  Into  the 
coBputer.  The  iuife  can  then  be  printed 
out.  or  save  as  a  standard  62  sector  tile. 
Included  at  no  extra  cbarse,  are  utilities 
for  convertlnr  to  other  foraats  like: 
Koala,  Print  Shop,  Fun  With  Art,  RLE,  and 
■ore!  Also  Included  la  a  Oeao  Disk. 

Systea  Reqnlreaents:  Atari  XL/XE/XE  GS 
with  at  least  12SK  RAM.  Also  needed,  Is  an 
Epson  rraphlcs  coapatlble  printer  like; 
Epson  FXSD,  Panasonic  1080,  Star  NX-10, 
and  any  of  tbelr  newer  counterparts. 

Price:  Only  899.98  (+  S&H  -  see  below) 

Earlier  versions  can  be  updated  tor  820.00 
A  Deao  Disk  Is  also  available  tor  88.00 

Check/aoney  order  (OS  funds),  with  order. 
DSA/APO/FPO  add  83.80  S&H.  COD  (USA  only) 
83.00  extra.  Canada/Mexico:  add  87.00  S&H. 
All  ether  coontrlaa  add  810.00  S&fl. 

I  "nojjia  t   1.  JTB      Concepts 
,.    311T2      Sh&vwn      Dx-  1  ve 
Waarx-en,        MI        4S093      USA 

Pbona : < 31 3 >       293— 0T30 

Dealer  Inquires  Welcoae! 

Note:  Toa  can  alao  find  us  on  CoapuServe, 
In  the  Atari  3-blt  section.  In  DLlS.  You 
can  reach  us  at  CoapuServe  i  78004,1764 


the  right  margin  to  38.  Then  print  the 
document  to  disk  as  a  new  file.  Be 
sure  to  use  a  different  filename  if  you 
don't  want  to  write  over  your  pres- 
ent file! 

TWOCOLMN.BAS  should  be  able 
to  read  and  print  any  40-column  (or 
less)  text  file.  However,  only  files  with 
an  extender  of  .TXT  will  be  listed  by 
the  program's  disk  directory,  so  it's  a 
good  idea  to  add  a  .TXT  extender  to 
the  new  file. 

To  preview  the  printed  file,  load 
your  new  file  back  into  your  word 
processor  Remove  any  extra  carriage 
returns,  and  this  time  save  the  file  to 
disk  as  a  regular  text  file.  (If  you  print 
the  file  to  disk  again  your  word  pro- 
cessor will  probably  just  put  all  those 
unwanted  carriage  returns  back  in,  to 
fill  out  what  it  thinks  are  blank  lines 
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at  the  end  of  pages.  As  a  result,  your 
printout  will  contain  a  lot  of  un- 
wanted blank  lines.) 

You  should  now  be  able  to  print 
your  file  in  two  columns  using 
TWOCOLMN.BAS.  Simply  choose 
option  [2],  OTHER,  when  the  pro- 
gram asks  what  file  you  want  to  print. 
At  the  next  prompt,  enter  the  name 
of  your  file,  and  your  text  will  be 
printed  in  two-column  format.  Of 
course,  I  can't  guarantee  that  you 
won't  end  up  with  half  a  sentence  all 
by  itself  on  the  last  page! 

CUSTOMIZING  THE 
PROGRAM 

Two  Column  Print-Pro  doesn't  con- 
tain any  machine  language  routines, 
so  it  should  be  fairly  easy  to  customize. 
If  your  printer  is  capable  of  elite  size 
type  (12  characters  per  inch),  you 
might  insert  your  own  printer  control 
code  in  the  program  for  a  slightly 
neater  printout. 

You  might  also  want  to  adjust  the 
left  margin  by  adding  one  or  two 
blank  spaces  in  line  290.  For  exam- 
ple, this  line  will  make  your  left  mar- 
gin two  spaces  wider: 
290  ?#2;"  ";COLl$(S,F);COL2S(S,F) 

The  program  removes  the  XXXs 
and  some  of  the  control  codes  in  the 
Antic  Disk's  HELP  files.  If  you  would 
like  to  have  them  all  print,  change  line 
150  to: 

150  INPUT  #1,R$ 

If  you  decide  to  use  single  sheets 
of  paper  (so  you  can  print  on  both 
sides  of  the  page),  watch  out  for  a  pos- 
sible snag — when  I  remove  the  sheet 
of  paper  from  my  printer,  the  "out  of 
paper"  red  light  comes  on.  When  I 
put  in  another  sheet  of  paper,  the  red 
light  goes  out,  but  I  often  forget  to 
make  sure  that  my  printer  is  reset  to 
"on".  The  program  just  sits  there,  wait- 
ing for  me  to  turn  on  the  printer  If 
I  turn  the  printer  back  on,  the  pro- 
gram resumes  where  it  left  off.       A 

Earl  Haley  lives  in  Lockport,  New  York. 
This  is  his  first  appearance  in  Antic. 

Listing  on  page  39 

ANTIC.  THE  ATARI  RESOURCE 


Tfpe-lii  Software  I 


Now  you  can  make  easy  computer  animations  using  your 
Print  Shop  Graphics  Editor  as  a  cell  animation  studio.  This 
two-part  BASIC  program  consists  of  a  Sequencer  and  a  sep- 
arate Scripter  that  takes  advantage  ofRAMdisks.  It  works 
on  8-bit  Ataris  with  at  least  48K  memory  and  a  disk  drive. 


The  Icon  Animation  System 
makes  8-bit  animation  eas- 
ier than  ever.  You  can  use 
it  as  a  tool  to  learn  the 
basics  of  cell  animation — or  simply  as 
an  animated  billboard.  Using  the 
Graphics  Editor  from  Print  Shop  or 


Print  Shop  Companion  (Broderbund) 
as  a  cell  animation  studio,  you  can  put 
together  as  many  as  25  images  in  a 
page-flipping  animation  of  up  to  100 
frames! 

The  Sequencer  module  lets  you  or- 
ganize your  cells  in  any  order,  even 


repeating  or  skipping  frames  as  de- 
sired. Once  you  have  your  animations 
running,  the  Scripter  program  lets  you 
link  several  animations  together  and 
run  them  from  disk.  You  may  also  run 
them  from  a  RAMdisk  for  smoother, 
faster  operation. 
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GEniNG  STARTED 

Type  in  Listing  1,  ANIMATOR.BAS, 
check  it  with  TYPO  II  and  SAVE  a 
copy  to  disk  before  you  RUN  it. 

If  you  have  trouble  typing  the  spe- 
cial characters  in  lines  160,  170  and 
31000,  don't  type  them.  Instead,  type 
in  Listing  3,  check  it  with  TYPO  II 
and  SAVE  a  copy  Wlien  you  RUN  List- 
ing 3,  it  creates  these  hard-to-type 
lines  and  stores  them  in  a  file  called 
LINES.LST.  To  meige  the  two  pro- 
grams, type  NEW  then  LOAD  Listing 
1,  "D:ANIMATOR.BAS"  and  then  EN- 
TER "D:LINES.LST".  Now,  SAVE 
"D:ANIMATOR.BAS"  and  type  NEW. 

Next,  ENTER  "D: LINES.LST",  de- 
lete line  160  and  LIST  "D:LINES.LST" 
back  to  disk.  Now  follow  the 
same  procedure  with  Listing  2, 
SCRIPTER.BAS.  ANIMATOR.BAS  and 
SCRIPTER.BAS  share  line  170  and 
31000,  but  SCRIPTER.BAS  does  not 
use  line  160.  Remember  to  SAVE  the 
completed  programs  before  you  RUN 
them. 

MAKING 

PRINT  SHOP  CELLS 

You  will  need  at  least  two  disks, 
one  formatted  from  the  Print  Shop 
program,  another  formatted  with 
DOS  2.0  or  2.5.  To  create  the  cells  or 
pictures  for  your  animation,  start 
Broderbund's  Print  Shop  or  Print 
Shop  Companion  and  go  to  the 
Graphics  Editor. 

In  the  Graphics  Editor,  you  can 
draw  an  original  picture  or  load  any 
picture  from  your  library  of  Print 
Shop  icons.  Pictures  made  with  other 
programs  can  be  converted  to  Print 
Shop  for  use  with  IAS,  but  you  will 


need   the   necessary   conversion 
programs. 

You  can  convert  most  types  of  Atari 
picture  files  (including  many  Com- 
puterEyes  pictures)  to  Micro  Illustra- 
tor files  using  Rapid  Graphics  Con- 
verter (Antic,  November  1985). 
Newsroom  Converter  (Antic,  Decem- 
ber 1988)  is  needed  to  convert  News- 
room files  to  Graphics  8.  You  can  then 
transfer  your  Micro  Illustrator  files 
and  Graphics  8  files  to  Print  Shop 
with  Graphic  Shop  ($19-95,  Arcade 
Catalog,  AP156). 


IAS  is  best 

suited  to  cyclic 

animations. 


Keep  in  mind  that  LAS  has  a  limit 
of  25  different  pictures  per  se- 
quence— although  you  can  repeat 
selected  pictures  within  the  actual  ani- 
mation, for  a  total  of  100  frames.  IAS 
is  best  suited  to  cyclic  animation,  that 
is,  sequences  that  repeat  themselves, 
such  as  a  running  horse,  a  juggler,  or 


a  waving  hand. 

When  your  picture  is  ready,  save  it 
to  your  Print  Shop  data  disk.  Now,  go 
back  to  the  Graphics  Editor  and 
change  the  picture.  You  can  move  an 
arm,  blink  an  eye,  or  whatever  Save 
the  new  picture  to  your  data  disk  us- 
ing a  different  name.  (I  use  CELl, 
CEL2,  CEL3,.  .  )  Repeat  the  process 
of  editing  and  saving  files  until  you 
have  the  effect  you  want.  Remember 
that  you  can  only  use  25  cells  in  one 
LAS  sequence! 

USING  THE  SEQUENCER 

Now  that  you  have  your  cells,  place 
your  IAS  program  disk  in  Drive  1,  turn 
on  your  Atari  and  RUN  "D:ANIMA- 
TOR.BAS".  Once  the  Sequencer  menu 
appears,  use  the  arrow  keys  to  move 
the  cursor,  and  press  [RETURN]  to  se- 
lect the  option  indicated. 

CREATE  ANIMATION  FILE  creates 
a  sequence  file  from  your  Print  Shop 
images.  The  program  asks  you  for  the 
number  of  pictures  you  wish  to  load, 
up  to  a  maximum  of  25.  Then  the 
program  will  load  your  files — starting . 
with  the  first  icon  on  the  data  disk. 
This  way,  you  do  not  have  to  pick  and 
choose  each  image  to  be  included  in 
your  sequence. 

Once  all  the  images  have  been 
loaded,  you  go  to  the  Graphics 
Screen.  Here,  LAS  will  flip  through 
your  images  in  the  order  loaded.  The 
controls  below  the  picture  let  you  ad- 
just the  speed  of  your  animation, 
freeze  the  action,  or  advance  one  by 
one  through  the  frames. 

Use  die  arrow  keys  and  [RETURN] 
to  control  LAS.  With  the  cursor  on 
SLOW  or  FAST,  pressing  [RETURN] 
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will  change  the  animation's  speed 
slightly.  Keep  pressing  [RETURN]  un- 
til the  animation  runs  at  the  speed  you 
want.  Select  PAUSE  to  freeze  the  ani- 
mation, and  PAUSE  again  to  continue. 
ADV  will  advance  your  animation 
one  frame  and  will  only  work  in 
pause  mode.  Use  EXIT  to  get  back  to 
the  main  menu. 

At  any  time,  you  can  return  to  the 
Graphics  Screen  from  the  main  menu 
by  choosing  VIEW  ANIMATION. 

The  SEQUENCER  lets  you  rear- 
range the  order  in  which  the  cells  are 
displayed.  Any  picture  can  be  used 
more  than  once  in  any  given  se- 
quence, to  produce  a  more  complex 


name  be  sure  to  use  the  device, 
filename  and  extension.  To  load  the 
sample  on  this  month's  Antic  Disk, 
put  the  disk  in  Drive  1  and  at  the 
"FILENAME  TO  LOAD"  prompt  type 
"D:SAMPLE.SEQ". 

If  you  plan  to  use  the  Scripter,  use 
.SEQ  extenders  on  your  animation 
filenames.  The  Scripter  looks  for  a 
.SEQ  extender  on  sequence  files,  and 
.SCR  on  script  files. 

USING  THE  SCRIPTER 

With  the  Scripter  program  you  can 
go  beyond  the  memory  limits  of  your 
Atari  and  create  even  more  complex 
animations  by  loading  your  sequences 
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animation.  While  you  are  limited  to 
25  different  pictures,  you  can  define 
a  sequence  of  up  to  100  frames.  En- 
tering a  zero  as  the  picture  number 
will  insert  a  pause  in  the  animation. 
To  exit  the  sequencer,  press  [RE- 
TURN] and  you  will  be  returned  to 
the  Graphics  Screen,  where  you  can 
view  your  altered  animation. 

Once  you've  finished  your  se- 
quence, you  can  save  it  with  the  SAVE 
ANIMATION  FILE  option.  Then  you 
can  load  your  sequence,  or  any  of  the 
samples  on  this  month's  Antic  Disk, 
using  LOAD  ANIMATION  FILE.  You 
will  be  prompted  for  a  filename 
to  load.  Press  [RETURN]  at  this 
prompt  to  see  a  directory  of  the  disk 
in  Drive  1. 

Animation  files  consist  of  the 
stacked,  uncompressed  picture  and 
sequence  data.  When  entering  a  file- 


to  a  RAMdisk  and  writing  a  "script" 
to  run  those  files  in  any  order.  I 
designed  Scripter  specifically  to  run 
with  a  RAMdisk. 

IAS  automatically  checks  to  see  if 
you  have  a  RAMdisk  installed.  If  you 
don't,  the  Scripter  will  load  files  from 
Drive  1 — but  the  beauty  of  the  rou- 
tine is  in  the  speed  of  a  RAMdisk. 

When  you  RUN  Scripter,  the  menu 
gives  you  the  option  to  CREATE, 
LOAD,  SAVE  and  RUN  scripts,  to  exit 
to  the  SEQUENCER,  or  to  LOAD 
FILES  TO  RAMDISK.  If  you  don't  have 
a  RAMdisk,  an  X  will  appear  in  the 
box  opposite  this  option,  and  you  will 
not  be  able  to  select  it. 

Whether  you're  using  Drive  1  or  a 
RAMdisk,  the  sequence  files  you  want 
to  combine  all  must  be  on  the  same 
disk. 

To  load  files  into  the  RAMdisk  you 


can  either  SAVE  the  files  to  "D8:", 
or  use  the  Scripter  s  LOAD  FILES  TO 
RAMDISK  function.  This  option  will 
automatically  clear  the  RAMdisk  of 
affiles  (including  DUPSYS  and 
MEM.SAV).  It  then  transfers  all  se- 
quence files  with  the  extension  .SEQ 
from  Drive  1  to  the  RAMdisk  until  the 
RAMdisk  is  fiUed. 

If  you  have  a  small  RAMdisk,  it  may 
run  out  of  room  before  all  your  .SEQ 
files  are  copied.  To  make  the  best  use 
of  your  RAMdisk,  you  should  remove 
any  unnecessary  .SEQ  files  from  your 
floppy  disk  before  you  begin.  (See  Dr. 
Brilliant's  Incredible  Atari  Brain 
Transplants  (Antic,  November  1988) 
to  learn  how  to  expand  your 
RAMdisks.) 

If  you  want  to  keep  the  files  in  the 
RAMdisk  while  loading  new  files, 
hold  down  [OPTION]  while  you 
select  this  function,  and  keep  it 
down  until  the  screen  displays 
*  LOADING*. 

When  you  choose  CREATE  SCRIPT, 
you  will  be  given  a  listing  of  the  .SEQ 
files  on  disk.  To  create  your  script, 
simply  pick  the  sequences  you  want 
to  play,  and  then  specify  how  many 
times  that  sequence  should  run  before 
the  next  sequence  loads  and  plays.  In- 
dividual sequences  can  be  inserted 
anywhere  in  the  script  and  can  be 
used  as  often  as  needed. 

IAS  can  be  used  to  set  up  demos, 
or  as  an  electronic  signboard  system. 
Experienced  programmers  could  ex- 
tract the  animation  routines  for  use 
in  their  own  programs,  including 
games — and  really  ambitious  pro- 
grammers could  even  try  adding  a 
sound  track.  A 

PRINT  SHOP,  $44.95.  Broderbund  Soft- 
ware, 17  Paul  Drive,  San  Rafael,  CA 
94903.  (415)  492-3200,  (800) 
527-6263. 

Jim  Johnson  is  a  Print  Shop  addict  liv- 
ing in  Seaford,  Delaware.  His  program 
Iconverter  was  published  in  the  Decem- 
ber, 1987  Antic. 

Listing  on  page  35 
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GAME  OF  THE  MONTH 


Doomed 


Can  YOU  survive  three  minutes  in  the  death  pit?  By  Tony  Barnes 
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'■'^ooiiied   is   a   dodge-and-fight 
JL^gaiiie  so  challenging  that  you 
only  need  to  survive  three  minutes 
to  win.  This  BASIC  program  works 
on  all  8-bit  Atari  computers  having 
at  least  32K  memory,  with  disk  or 
cassette. 

They  throw  you  into  the  cell,  and 
as  you  hit  the  cold  hard  floor  they  say, 
"If  you  can  survive  three  minutes  in 
that  death  pit  you  can  have  your  free- 
dom!" Three  minutes,  you  think. 
Could  it  be  aU  that  bad? 

Suddenly,  strange  beasts  come  at 
you  from  either  side.  Faster  and  faster 
they  advance,  sapping  the  very  life 
from  you  with  every  pass. 

As  you  concentrate  on  lasting  those 
three  minutes,  you  notice  that  one  of 
the  beasts  disappears,  and  then  an- 
other. Then  you  realize  that  your 


mind  waves  kill  these  creatures! 

GEniNG  STARTED 

To  play  Doomed,  type  in  Listing  1, 
DOOMED.  BAS,  check  it  with  TYPO 
II  and  SAVE  a  copy.  If  you  have  trou- 
ble typing  the  special  characters  in 
lines  50,  5530-5565,  11000-11010  and 
20006-20010,  don't  type  these  lines. 
Instead,  type  in  Listing  2.  When 
you  RUN  Listing  2,  it  creates  a  file 
called  LINES.  LST  Merge  this  file 
with  Listing  1  by  typing  LOAD 
"DiDOOMED.BAS  and  then  ENTER 


"D:LINES.LST".  Cassette  users: 
CLOAD  Listing  1,  then  insert  the  sep- 
arate cassette  used  for  Listing  2  and 
ENTER  "C:".  Remember  to  SAVE 
the  completed  program  before  you 
RUN  it. 

When  you  RUN  Doomed  and  the 
main  screen  appears,  press  your 
joystick  button  to  start  the  game. 
Pressing  the  joystick  button  will  also 
bypass  the  introductory  sequence. 

Creatures  attack  from  either  side. 
Any  creatures  you  can't  avoid  must  be 
shot  with  your  "mind-blaster".  To  ac- 
tivate it,  press  the  joystick  button 
while  moving  left  or  right. 

The  creatures  on  the  ground  are  be- 
yond range  of  your  mind-blaster.  Your 
only  chance  is  to  jump  over  them. 
Move  the  joystick  forward  to  jump  up. 
As  you  fall  back,  you  may  move  left 
or  right,  zapping  the  upper-level  crea- 
tures and  evading  the  creatures  on  the 
floor 

As  the  game  progresses,  the  ground 
begins  to  crumble  away.  Again,  press 
the  joystick  forward  to  jump  over  the 
holes.  Once  you  start  to  fall,  move  the 
joystick  right  or  left  to  scramble  onto 
the  stable  patches  of  bricks. 

Flashing  flags  at  the  bottom  of  the 
screen  indicate  your  remaining 
strength.  Once  you're  down  to  your 
last  flag,  you're  doomed  to  die — and 
your  game  is  over. 

Tony  Barnes  is  a  San  Francisco  commu- 
nity college  freshman.  His  previous  Antic 
games  include  Escape  From  Hell  (June 
1988)  and  Shutdown  (April  1989). 

Listing  on  page  29 
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FEATURE    REVIEW 


DIAMOND 
OPERATING  SYSTEM 


Poinl-and -Click    for    the    Atari    8  -  b  i  t ,    R  e  v  i  e  w  e  d    by    Matthew    Ratcliff 
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Touted  as  the  "ST  junior," 
Alan  Reeve's  long-awaited 
Diamond  Operating 
System  is  finally  here  on  a 
bank-switched,  piggyback,  super  car- 
tridge. Diamond  gives  your  8-bit  Atari 
a  high-tech  graphic  user  interface. 
Typing  is  replaced  with  "pointing  and 
clicking."  Commands  are  selected 
from  "drop-down  menus"  and  "pop- 
up dialog  boxes". 

First  and  foremost,  Diamond  is  a 
replacement  for  DUP.SYS,  the  disk 
utilities  package  that  comes  on  your 
Atari  DOS  disk.  The  graphic  user  in- 
terface is  friendly,  almost  intuitive.  Al- 
though Diamond  is  not  exactly  a  jun- 


ior ST,  it  is  well  executed. 

With  this  cartridge  comes  a  lot  of 
potential.  Soon  to  be  delivered  in  fi- 
nal form.  Diamond  Paint  and  Dia- 
mond Write  are  graphics  and  desk- 
top publishing-style  word  processing 
packages  which  will  run  under 
Diamond. 

The  advantage  of  Diamond  is  that 
the  same  graphic  user  interface  can  be 
employed  for  many  applications.  This 
minimizes  relearning  as  you  go  from 


.._CM(IKEI>nPI>  020 

COLORME  MCS  00(1 

OOLOHME  SRO  010 

COLORHE  ACO  002 

ooHrinuiiAPP  020 

coNFin     OS  001 

gE3KT0l>    INF  004 

03  3V5  037 

PUP  3Y3  042 


nUTORlWsVS    UEE 


coLiiir^  [105  000 


one  program  to  the  next.  Think  of  all 
the  different  programs  you  use  on 
your  8-bit  machine  now,  each  requir- 
ing a  different  command  set.  Pro- 
grams that  run  under  Diamond  can 
eliminate  all  the  confusion. 

When  you  first  put  Diamond  to 
work,  you  want  to  configure  it  for 
operation  under  your  DOS  of  choice. 
I  had  no  problem  using  the  utility  pro- 
grams provided  to  create  a  CON- 
FIG.OS  file  for  ICD's  SpartaDOS.  Dia- 
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mond  even  works  with  the 
SpartaDOS  X  cartridge. 

It's  possible,  though  rather  bizarre, 
to  have  MAC/65  piggybacked  on  top 
of  the  Diamond  cartridge,  on  top  of 
the  SpartaDOS  X  cartridge,  on  top  of 
the  R-Time  8  clock  cartridge.  This  is 
not  very  practical,  however,  and  I  had 
some  problems  on  my  system  when 
running  Diamond  on  top  of  the  Spar- 
taDOS X  cartridge  (Version  4.19).  Dia- 
mond does  run  well  from  disk-based 
SpartaDOS  3.2d. 

After  the  Diamond  "desktop"  is  up 
and  running,  you  need  to  load  and 
run  CONFIGUR.APP  from  the  sup- 
plied utility  disk.  This  lets  you  set  up 
your  system  for  ST  mouse,  joystick, 
KoalaPad,  or  Atari  Touch  Tablet  oper- 
ation. The  default  configuration  is  for 
an  ST  mouse  in  the  second  joystick 
port,  which  worked  fine  for  my  setup. 

If  you  do  not  have  a  mouse,  you  can 
still  control  the  system  with  the  ar- 
row keys  on  the  keyboard,  the  space 
bar  acting  as  the  "mouse  button". 
Pressing  [RETURN]  selects  "default" 
menu  options. 

DESKTOP  TOUR 

The  desktop  presented  by  Dia- 
mond places  a  menu  bar  across  the 
top  of  the  screen.  Each  menu  head- 
ing (Desk,  File,  Disk,  and  Options)  has 
a  drop-down  menu  associated  with  it. 
For  example,  if  the  mouse  pointer 
(black  arrow)  is  moved  over  the  word 
Options,  a  box  will  drop  down  below 
it.  Underneath,  the  words  Display, 
Confirm,  Install,  and  Save  Desktop 
will  appear. 

Moving  the  arrow  over  any  of  these 
words  wiU  highlight  it  in  reverse  video 
text.  Press  the  [SPACEBAR]  once  (or 
double-click  the  mouse,  or  other  ex- 
ternal device  button)  to  then  activate 
this  option. 

For  example,  highlight  Install  and 
press  [SPACEBAR].  A  dialog  box  will 
pop  up.  This  small  menu  usually 
comes  up  centered  on  the  screen,  on 
top  of  whatever  was  already  there.  In 
this  case,  the  dialog  box  shows  two 
prompts.  Unit  Number  and  Drive 


Number,  each  followed  by  a  single 
blank. 

Any  time  a  series  of  underline 
characters  is  displayed  within  a  dia- 
log box,  this  indicates  a  field  in  which 
some  text  should  be  entered.  Move 
the  mouse  pointer  to  the  Unit  Num- 
ber field  and  press  the  [SPACEBAR]. 

The  pointer  disappears,  replaced  by 
a  flashing  vertical  bar  which  is  the  text 
cursor.  Type  the  number  of  the  drive 
you  wish  to  install,  such  as  3,  and 
press  [RETURN].  The  pointer  will 
reappear,  allowing  a  similar  operation 
for  the  Drive  Letter  field.  It  is  only  log- 
ical to  assign  drive  letter  A  to  drive 
number  1,  B  to  2,  and  so  on. 

Below  these  fields  are  three  smaller 
boxes  with  text  inside  them,  referred 
to  as  "radio  buttons"  or  simply  "but- 
tons". They  are  Install,  Remove,  and 
Cancel  respectively.  Cancel  has  an  ex- 
tra dark  outline,  indicating  that  this 
is  the  default  selection,  chosen  when- 
ever [RETURN]  only  is  pressed.  This 
default  system  works  for  any  dialog 
box  in  the  system.  Place  the  arrow  on 
Install  and  press  the  [SPACEBAR]  and 
a  new  disk  drive  icon  will  pop  up  on 
the  screen.  The  placement  is  auto- 
matic, but  you  may  "drag"  the  icon 
elsewhere. 

Drag?,  you  ask.  If  you  point  at  any 
icon  or  window  on  the  display,  press 
and  hold  the  button,  and  then  move 
the  pointer,  a  ghost  outline  of  the  item 
will  move  along  with  the  pointer.  Re- 
lease the  button  and  your  icon  or  win- 
dow will  be  transplanted  to  this  new 
location,  if  it  can  fit.  The  Diamond 
keeps  track  of  where  everything  is 
placed  on  the  screen,  and  it  will  not 
allow  icons  to  overlap. 

I  found  it  is  best  to  allow  Diamond 
to  automatically  place  the  drive  icons. 
When  I  tried  to  place  them  manually. 
Diamond  was  very  particular  about 
how  close  together  I  set  them,  which 
made  it  very  difficult  to  get  my  drives 
(all  seven  of  them)  laid  out  the  way 
I  wanted. 

ST  LOOKALIKE 

Diamond  provides  drop-down  me- 


nus and  dialog  boxes  in  a  format  very 
similar  to  the  Atari  ST's  desktop  in  low 
resolution.  The  icons  are  oversized, 
taking  up  a  big  chunk  of  the  screen. 
You  won't  find  the  "icon  mode"  for 
windows  very  useful  (but  then  I  never 
did  on  the  ST  either).  Fortunately,  an 
alternative  "text  mode"  is  provided. 

At  first,  double-click  response  to 
the  mouse  was  poor  I  found  myself 
using  the  [SPACEBAR]  more  often 
than  the  ST  mouse  button,  until  I  dis- 
covered that  the  mouse  click  speed 
may  be  adjusted  with  the  CON- 
FIGUR.APP utility,  under  the  Set 
Mouse  Port  option. 

Whenever  you  double-click  on  a 
disk  drive  icon,  that  drive  is  "opened" 
by  Diamond.  A  window  is  created 
with  a  directory  of  that  disk  displayed 
inside  it.  Date  and  time  stamps  are 
shown  for  SpartaDOS  users,  and  sub- 
directories are  indicated  properly. 

Double-clicking  on  a  directory 
name  will  open  up  that  directory.  No 
more  CHDIR  command,  followed  by 
a  separate  DIR  command  is  required 
here,  simply  point  and  click.  The  cur- 
rent directory  path  is  shown  at  the  top 
of  the  window,  referred  to  as  the  title 
bar.  I  have  found  that,  when  several 
directory  levels  deep.  Diamond  does 
not  always  keep  track  of  the  current 
path. 

For  example,  if  I  went  down 
to  directory  \FRED\JAMES\BROWN 
and  then  clicked  on  the  close  button 
(the  small  X  at  the  top  left  of  every 
window).  Diamond  would  indeed  go 
back  one  directory,  as  expected.  The 
files  listed  in  the  window  would  be 
from  directory  path  \FRED\JAMES, 
but  the  title  bar  would  only  display 
\FRED.  Closing  the  window  and  re- 
opening it  corrects  the  title  bar. 

In  the  drop-down  menu  under  File, 
you  will  find  options  for  opening  a 
file,  checking  disk  status,  duplicating 
disks,  creating  a  new  folder,  closing 
a  file,  or  quitting.  Selecting  Quit  will 
return  control  to  built-in  Atari  BASIC, 
or  to  the  cartridge,  if  one  is  mounted 
piggyback  on  top  of  the  Diamond  car- 
tridge. 
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NO  SPEED  DEMON 

For  normal  disk  maintenance,  such 
as  duplicating  disks,  you  may  still  pre- 
fer your  old-fashioned  Atari  DOS  or 
SpartaDOS,  since  Diamond  is  much 
slower  in  all  disk  operations  by  com- 
parison. Duplicating  an  Atari  DOS 
2.0S  disk  with  Diamond  takes  over  six 
minutes  (with  two  drives),  when  it 
takes  just  over  two  minutes  when  us- 
ing Atari's  DUP.SYS. 

In  fact,  just  about  anything  you  do 
with  Diamond  is  going  to  be  slower 
than  you  are  accustomed  to.  This  is 
the  price  you  pay  for  all  those  lovely 
graphics.  Any  DOS  for  your  Atari  sim- 
ply manages  a  940  byte  text  display. 
Diamond  must  manage  nearly  8K  of 
graphics  memory,  including  multiple 
objects  like  icons,  menus,  and  win- 
dows. It  does  the  job  well,  but  it  does 
take  time.  The  Atari  800XL  or  130XE 
cannot  be  expected  to  emulate  the 
ST's  desktop  at  the  same  speed. 

Under  the  Disk  menu  you  may  for- 
mat a  floppy  disk  or  copy  files.  Files 
may  also  be  copied  by  dragging  a  file 
from  one  drive's  open  window  to  an- 
other The  Options  menu  allows  you 
to  set  display  preferences.  Files  may 
be  shown  as  icons  or  text.  If  you 
choose  icons,  lots  of  time  will  be 
wasted  scrolling  around  the  window. 
Sort  selections  for  file  listings  include 
no  sorting  (for  faster  window  up- 
dates), sort  by  filename,  extender,  or 
file  size.  I  generally  sort  by  name,  mak- 
ing files  easier  to  find  in  a  list. 

The  confirm  option  has  a  check 
mark  by  it  to  indicate  that  Diamond 
will  ask  you  to  confirm  any  opera- 
tions that  may  destroy  a  file  on  your 
disk.  Clicking  on  this  entry  removes 
the  check  mark  highlight,  indicating 
that  no  confirmation  requests  will  be 
issued. 

Install  lets  you  add  another  disk 
drive  definition,  so  Diamond  will 
recognize  your  drives.  I  find  it  pecu- 
liar that  Diamond  will  allow  only 
seven  drives,  A-G,  to  be  defined.  An 
eighth  drive  is  not  allowed,  limiting 
use  with  RAMdisks  that  must  be  ad- 
dressed as  D8;. 


SAMPLE  PROGRAM 


The  file  SKELETON. M65  was  included  in  Diamond  to  assist  you  in  writ- 
ing your  own  desktop  accessory.  The  skeleton  file  was  incorrect,  and  it 
took  a  bit  of  deciphering  of  RESET.  ACC  to  get  it  right.  I  spent  several  hours 
studying  the  source  files  and  came  up  with  COLORME.ACC.  This  acces- 
sory, when  activated,  will  shift  the  desktop  color  to  the  next  hue  value 
(same  intensity)  and  display  a  dialog  box.  Click  the  button,  and  the  desk- 
top will  return  to  normal  operation  in  the  new  color. 

I  was  not  successful  in  developing  my  own  event  handling,  and  did  not 
explore  the  possibilities  of  radio  buttons  and  more  complicated  structures 
for  a  dialog  box.  The  source  listing  tor  COLORME.M65  is  presented  below. 
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BLISHING  INC. 

D:COLORHE.EXE 
prosraM . 
IR5T  6  BYTES 
f  COLQRME.MAC 
n  accessory! 

iC0L0RI1E.EXE" 
:C0L0RME. ACC" 
ET    ttl,A:NEXT     I 


T    «2,liG0T0    50 
05E    U2-7    "COLORnE 


.OPT  NO  LIST 

.OPT  OBJ 

.INCLUDE  ttD:  LIBRARY.  1165 

.INCLUDE  »D:DnACR0S.ri65 

»»=   62FF0 


BYTE 


Color  Me 


;10  Bute  N 


■MORD  ENDACC-RUNACC  ;Length  o 
essoru 

.MORD  RUNACC  ;Load  address 

.MORD  RUNACC  ;Run  Address 

;ACCESSORY  VARIABLES 
COLOREG  =  710 


24.60,COLQRSOBJ,CO 


RUNACC 

DODIALQG 
UCH 

LDA  COLOREG 

CLC 

ADC  t*$l0 

STA  COLOREG 
EUENTDIALOG 
RELEASEDIALOG 

RTS 
COLORS 

.BYTE  ••  ",252,4, "Next  Screen 
",13,13 

.BYTE  252,1."  Ac c essorw" , 13 

.BYTE  252,1,"   by  nat**Rat",13 

COLORSOBJ 

.BYTE  1 

.MORD  COLORS, 8, 8 

.BYTE  8,255 
COLORTOUCH 

.BYTE    0,148,0,136,255 
ENDACC 
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MULTI  DRIVES 

I  was  able  to  install  both  my  10  meg 
FA-ST  hard  drive  partitions,  my  XF551 
floppy  disk,  my  1050  disk,  and  mul- 
tiple MIO  RAMdisks.  I  was  even  able 
to  generate  a  RAMdisk  using  Spar- 
taDOS's  RD.COM,  which  then  resided 
in  the  SOOXL's  internal  256K  (RAMbo- 
XL)  memory.  Diamond  honored  this 
RAMdrive  definition  and  functioned 
properly  with  it.  Certain  memory 
configurations  for  Diamond  may  not 
allow  internal  RAMdisks  to  be  used. 

When  your  window  placements, 
drive  icon  definitions  and  other 
preferences  are  complete,  simply  se- 
lect Save  Desktop  from  the  Options 
menu.  Diamond  will  create  a  file 
caUed  DESKTORINF  on  the  default 
drive  A.  The  next  time  your  system 
is  booted  with  Diamond  and  this  disk, 
the  initial  display  and  settings  will 
match  those  in  place  when  the  desk- 
top was  saved. 

The  trash  can  icon  is  for  deleting 
files,  of  course.  Simply  drag  a  file  from 
any  open  window  over  to  the  trash 
can  and  Diamond  will  delete  it  for 
you. 

FEW  PROBLEMS 

I  have  not  run  into  too  many  prob- 
lems with  Diamond.  The  key  to 
smooth  Diamond  operation  is  proper 
setup  with  DOSCONFG.BAS  and  dien 
CONFIGUR.APR 

Diamond  usually  ran  fine  with  the 
SpartaDOS  X  cartridge,  but  occasion- 
ally it  would  crash.  I'm  not  sure  if  the 
problem  is  with  my  own  highly- 
customized  set-up  or  not — no  one  else 
I  talked  to  had  this  problem. 

Diamond  does  not  return  DOS  er- 
ror codes  when  a  disk  error  occurs. 
It  simply  states  that  "A  disk  error  has 
occurred".  For  example,  SpartaDOS 
can  access  Atari  DOS  2.0  and  2.5 
disks,  with  no  problems.  However, 
when  operating  Diamond  with  Spar- 
taDOS you  cannot  access  disks  in 
Atari  DOS  format.  Diamond  simply 
returns  a  disk  error.  Without  an  as- 
sociated error  code,  I  have  no  idea 
what  the  problem  may  be. 


I  have  found  that  sometimes,  when 
a  disk  error  dialog  box  pops  up,  a 
crash  of  Diamond  soon  follows. 
Under  normal  operation  (working 
with  only  one  DOS,  and  disks  format- 
ted in  that  DOS,  throughout  one  ses- 
sion with  Diamond),  problems  are 
rare. 

When  two  windows  are  open 
simultaneously,  the  bottom  window 
does  not  get  refreshed  until  it  be- 
comes the  top  (active)  window.  Ac- 
cording to  the  progranmier's  refer- 
ence  for   Diamond,    up   to   four 


You 

can  "drag" 

the  drive  icon 

to  w^here 

you  want 

it. 


windows  can  be  opened  at  once,  but 
the  Diamond  cartridge  allows  only 
two  disk  drive  windows  open  at  any 
one  time.  The  documentation  men- 
tions this,  but  doesn't  explain  why.  If 
the  cartridge  supports  tour  windows, 
I  would  expect  the  desktop  to  use 
them  as  well. 

Copying  multiple  files  can  be  tedi- 
ous with  Diamond.  With  the  Atari  ST 
you  can  draw  a  "lasso"  box  around 
multiple  files,  and  then  drag  the 
whole  passel  of  them  over  to  another 
window  or  drive  icon  for  duplication. 
This  "lasso"  feature  seems  to  be  lack- 
ing in  Diamond. 

The  file  selector  employed  in  the 
CONFIGUR.APP  program  does  not 
allow  navigation  of  subdirectories. 
Nor  does  it  allow  the  user  to  input 
wild  cards  to  narrow  down  a  set  of 
file  selections.  Fortunately,  this  is  not 
built  into  the  Diamond  cartridge,  but 


is  a  function  of  a  separate  program  file. 
The  program  is  provided  as 
FILESEL.M65,  in  MAC/65  source 
code,  on  the  Diamond  utilities  disk. 
Ambitious  programmers  should  be 
able  to  perfect  it. 

Dragging  files,  icons,  and  other  ob- 
jects is  very  basic  to  the  operation  of 
any  graphic  user  interface.  You  can 
drag  with  the  joystick,  touch  tablet, 
or  mouse,  but  not  with  the  keyboard. 
The  arrow  keys,  coupled  with  a  con- 
sole keypress  could  easily  be  im- 
plemented as  a  keyboard-controlled 
drag  function,  which  should  have 
been  added  for  completeness. 

The  Diamond  User's  Manual  covers 
the  basics  of  the  desktop  as  briefly  as 
possible.  The  short  manual  has  no  ta- 
ble of  contents,  nor  an  index.  Screen 
graphics  are  provided,  which  are  very 
helpful  for  the  novice. 

The  Diamond  OS  Programmer's 
Manual  is  provided  for  those  who 
wish  to  write  applications  or  acces- 
sories. The  manual  serves  as  a  fair 
overview,  but  is  in  no  way  a  complete 
reference  guide.  However,  the  source 
code  for  CONFIGUR.APP  is  provid- 
ed, CONFIGUR.M65.  It  presents  ex- 
amples of  dialog  boxes,  drop-down 
menus,  a  file  selector,  and  more. 

With  slightly  more  complete 
documentation,  and  final  versions  of 
Diamond  Paint  and  Write,  Diamond 
OS  is  likely  to  become  a  very  popular 
operating  environment  for  the  8bit 
Ataris.  The  current  release  is  quite 
workable,  and  I  am  eager  to  see  what 
develops  for  Diamond.  A 

DIAMOND  OPERATING 
SYSTEM 

Reeve  Software 
29W150  Old  Farm  Lane 
Warrenville,  IL  60555 
(312)  393-2317 

Requires  minimum  48K  memory. 
$29.95  disk 

$79.95  cartridge  and  Programmer's  Kit 
(Limited  introductory  special— five  units  per 
store— cartridge.  Programmer's  Kit  and 
Diamond  Paint  all  for  $79.95) 
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ANTIC,  THE  ATARI  RESOURCE 


SUPER  DISK  BONUS 


Antic  Music  Processor: 

Version  2.0 


Now  you  can  add  lyrics  and  sound  effects,  Program  by  Steven  Lashower 


^  ntic  Music  Processor,  the 
J^  popular  December  1988 
^^M  Super  disk  bonus,  came 
^L  JL  with  a  sample  song  that 
displayed  song  lyrics.  But  there  was 
no  apparent  way  to  enter  lyrics — 
author  Steven  Lashower  had  plugged 
in  text  directly  at  the  programming 
level.  Many  Antic  Disk  users  seem  to 
have  spent  hours  staring  in  amaze- 
ment at  the  "Come  Sail  Away"  com- 
position and  pondering,  "That's 
great.  .  .but  how  can  I  do  it?" 

Now,  Antic  Music  Processor,  Ver- 
sion 2.0  (AMP)  comes  with  a  fully  in- 
tegrated lyric  editor  to  give  you  that 
power  Version  2.0  also  contains  many 
new  enhancements  and  additional 
features.  Even  more  than  the  original 
version,  this  new  Antic  Music  Proces- 
sor is  the  most  powerful  music  per- 
former available  for  the  8-bit  Atari 
sound  chip.  As  you'll  see  in  this  issue's 
article  about  the  AMP  Song  Contest 
Winners,  the  program  has  been  used 
successfully  for  processing  music  as 
complex  as  Gershwin's  entire  "Rhap- 
sody In  Blue." 

Your  June  1989  Antic  Disk — featur- 
ing Antic  Music  Processer,  Version  2.0, 
plus  the  AMP  Song  Contest  Winners 
as  well  as  every  type-in  program  from 


The  new 

Note  command 

produces  sound 

effects. 


this  issue — ^will  be  shipped  to  you 
within  24  hours  after  receiving  your 
order  Just  phone  Toll-Free  to  the 
Antic  Disk  Desk  at  (800)  234-7001. 
The  monthly  disk  is  only  859  5  (plus 
$  2  for  shipping  and  handling)  on  your 
Visa  or  MasterCard.  Or  mail  a  $5-95 
check  (plus  $2  shipping  and  handling) 
to  Antic  Disk  Desk,  544  Second 
Street,  San  Francisco,  CA  94107. 

This  article  explains  the  new  fea- 
tures and  commands  in  Antic  Music 
Processor,  Version  2.0.  If  you  don't  2X- 
ready  know  how  to  operate  the  Antic 
Music  Processor,  you'll  find  full  in- 
structions in  a  large  HELP  file  on  this 
month's  Antic  Disk.  Those  on-disk  in- 
structions are  likely  to  be  necessary 
for  your  understanding  of  the  user  in- 
formation that  follow.  Admittedly, 
Antic  Music  Processor  is  not  a  pro- 


gram for  Atari  novices. 

By  the  way,  the  December  1988 
Antic  Disk,  also  still  available  from  the 
Disk  Desk,  includes  the  AMS  File 
Wanslator  utility  program  that  con- 
verts widely  available  public  domain 
files  from  Advanced  Music  System  II 
into  Antic  Music  Processor  format. 

Another  good  reason  why  you 
might  want  to  own  both  versions  of 
Antic  Music  Processor  is  that  all  the 
new  features  make  Version  2.0  use 
more  memory  than  its  predecessor 
This  could  cause  problems  loading 
extra-laige  song  files  created  with  Ver- 
sion 1.2. 

You  may  be  able  to  load  massive 
files  and  play  back  most  of  the  song 
in  Version  2 . 0 — but  the  end  of  the  file 
might  be  damaged.  Trying  to  edit 
over-large  files  can  cause  the  program 
to  lock  up.  Instead,  load  any  such  files 
into  Version  1.2  and  cut  them  down 
there.  Size  limitations  wUl  vary,  de- 
pending on  the  memory  available  in 
your  8-bit  Atari  computer. 

While  you  are  editing  your  new 
songs,  be  sure  to  save  your  files  of- 
ten. On  some  rare  occasions.  Version 
2.0  has  locked  up  when  the  P  com- 
mand is  typed  in  the  Note  Editor  No- 
body has  yet  been  able  to  get  this  bug 


JUNE  1989 


23 


to  repeat  consistently,  which  would 
be  the  first  requirement  for  fixing  it. 
Any  further  information  on  this  will 
appear,  as  soon  as  available,  in  Antic 
and  on  CompuServe's  ANTIC 
ONLINE. 

USING  THE  PROGRAM 

Copy  Antic  Music  Processor,  Ver- 
sion 2.0  to  another  disk  formatted 
with  DOS  2.0  or  2.5.  Don't  attempt 
to  run  it  directly  from  the  monthly 
Antic  Disk.  Be  sure  the  new  disk  con- 
tains the  DOS.SYS  file.  Use  DOS  com- 
mand E  to  rename  AMP2.EXE  to  AU- 
TORUN.SYS.  Turn  off  your  computer 
and  remove  all  cartridges.  Place  the 
disk  in  drive  1.  If  you're  using  an  XL 
or  XE,  hold  down  the  [OPTION]  key 
while  you  turn  on  your  computer. 
Antic  Music  Processor  will  load  and 
run  automatically. 

Two  new  commands  have  been  ad- 
ded to  the  Main  Menu: 

X— Exit  to  DOS— Press  the  X  key 
and  insert  a  disk  with  DURSYS  to  exit 
to  DOS.  All  music  data  currently 
stored  in  the  computer's  memory  will 
be  erased. 

W— Lyric  Editor— Press  the  W  key 
to  enter  AMP's  integrated  lyric  editor. 

L  and  S — Before,  AMP  was  only 
able  to  load  and  save  files  to  drive  one. 
AMP  Version  2.0  allows  you  to  load 
or  save  an  AMP  file  from  any  disk 
drive.  For  example,  to  load  "Come  Sail 
Away"  from  drive  2,  you  would  type; 

L  D2:COMESAIL.MUS  [RETURN]. 

NEW  EDITOR  COMMANDS 

L — Lyric  Advance.  Used  to  display 
and  advance  lyrics  one  syllable  at  a 
time. 

Nx,y,z — Note  command.  One  of 
the  few  complaints  about  AMP  1.2 
was  that  it  lacked  the  ability  to  pro- 
duce sounds  other  than  pure  tones. 
Note  is  an  extremely  powerful  com- 
mand that  can  harness  some  of  the 
power  in  the  8-bit  Atari's  sound  gener- 
ating hardware  that  until  now,  has 
never  really  been  utilized  in  previous 
music  programs. 

AMP's  new  Note  command  gives 


you  the  ability  to  produce  sound  ef- 
fects and  noise.  Note  is  very  similar 
to  Atari  BASIC'S  SOUND  command. 
Instead  of  using  four  numbers  like 
Atari  BASIC,  Note  uses  the  following 
three: 

X — Sound  pitch  (0-255)  is  exactly 
the  same  as  the  second  number  in 
Atiiri  BASICS  SOUND  command— the 
lower  the  number,  the  higher  the  fre- 
quency of  the  sound. 

y — Sound  distortion  (0-254). 

z — Sound  duration  (1-126)  in 
clocks.  See  Figure  1  for  a  list  of  dura- 


LYRIC  EDITOR 

You  can  use  AMP's  integrated  Lyric 
Editor  by  pressing  W  from  the  Main 
Menu.  The  Lyric  Editor  is  divided  ver- 
tically into  different  sections.  In  the 
upper-middle  of  the  screen  is  a  big 
blue  20  X  11  character  window.  Up  to 
11  lines  of  lyrics  can  appear  in  this 
window  at  one  time. 

To  the  immediate  left  and  right  of 
the  window  is  a  small  pointer.  Press- 
ing [CONTROL]  [UP-ARROW]  will 
move  the  pointer  up  one  line  and 
[CONTROL]   [DOWN-ARROW]  wiU 


FIGURE  1 


Note 


Antic  Music  Processor  Durations 

Clock  Value  of  Duration 

Normal  (.)  (.,) 


Triplet 


Whole  Note 

(W)    # 

192* 

XX 

XX 

128* 

Half  Note 

(H)    # 

96 

144* 

168* 

64 

Quarter  Note 

(Q)   # 

48 

72 

84 

32 

Eigth  Note 

(E)     # 

24 

36 

42 

16 

Sixteenth  Note 

(S)     # 

12 

18 

21 

8 

Thirty-second  Note 

(T)    # 

6 

9 

10 

4 

Sixty-fourth  Note 

(Z)    # 

3 

4 

XX 

2 

X — Duration  does  not  exist 


* — Since  the  clock  values  for  these  durations  are  larger  than  126,  they  cannot  be 
used  with  the  Note  command. 


tions  and  their  corresponding  clock 
values. 

Let's  convert  SOUND  0,121,10,8 
into  a  Note  command  that  will  be 
played  for  96  clocks,  the  duration  of 
a  half  note: 

x  =  121 

y  =  (10*l6)-H8 

z=96  (clocks) 

The  third  number  in  Atari  BASIC'S 
sound  command  (distortion)  must  be 
multiplied  by  16  and  added  to  the 
fourth  number  (volume).  The  result 
gives  us  NOTE  121,168,96,  which  can 
be  entered  into  the  AMP  music  editor 
by  typing: 

N121, 168,96  [RETURN] 


move  the  pointer  down  one  line.  The 
line  bracketed  by  the  pointers  is  the 
"current  lyric  line."  Then  [CONTROL] 
[LEFT  ARROW]  and  [CONTROL] 
[RIGHT  ARROW]  can  be  used  to  cen- 
ter the  text  in  the  current  lyric  line. 
As  you  type  commands,  they  will 
appear  in  the  command  line  near  the 
bottom  of  the  screen.  Error  messages 
will  be  displayed  just  below  the  com- 
mand line.  The  status  line  at  the  bot- 
tom of  the  screen  shows  three  things: 

1.  The  number  of  the  current  lyric 
line. 

2.  Entry  Mode,  either  Text  or  Play. 

3.  The  amount  of  memory  left  for 
entering  lyrics. 
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ENTERING  LYRICS 

Let's  go  through  the  steps  to  enter 
the  first  line  of  lyrics  for  the  song, 
"Come  Sail  Away"  —  I'M  SAILING 
AWAY.  To  start  out,  type  C  from  the 
Main  Menu  to  clear  out  any  music  that 
might  be  residing  in  memory.  Now, 
type  W  to  enter  the  Lyric  Editor 

First  of  all,  we  must  tell  AMP  that 
we're  going  to  enter  one  line  of  lyrics. 
The  command  for  this  is  L  =  — 
followed  by  up  to  20  characters.  No 
more  than  twenty  characters  can  be 
displayed  on  a  single  line  of  lyrics.  If 
you  type  the  line  below,  it  wOl  now 
appear  as  the  top  line  in  the  lyric 
window. 

L  =  I'M  SAILING  AWAY  [RETURN] 

Next,  we  determine  where  to  di- 
vide the  lyrics  up  into  syllables  and 
breaks:  I'M-SAIL-ING-A-WAY  Now  we 
let  AMP  know  about  the  syllables.  Use 
[CONTROL]  [UP-ARROW]  to  move 
the  pointer  back  up  one  line. 

Notice  that  the  lyric  line  is  now 
highlighted  right  under  the  window 
in  big,  blue  Graphics  1  (ANTIC  6)  text. 
Look  just  below  the  Graphics  1  line 
to  find  the  letters  which  correspond 
to  the  syllables  and  breaks.  These  let- 
ters will  be — E,  I,  N  and  M.  Now  type: 

S  =  EINM  [RETURN]. 

The  E  and  M  are  used  because  they 
are  spaces  separating  words,  and  like 
syllables,  spaces  are  considered 
breaks.  Press  [CONTROL]  [RIGHT- 
ARROW]  twice  to  center  the  line  on 
the  screen.  To  see  how  this  line  will 
look  when  played  by  AMP,  type:  P 
[RETURN]. 

This  changes  Mode  in  the  status  line 
from  Text  into  Play.  Watch  the  Graph- 
ics 1  line  and  press  [RETURN]  to 
simulate  a  Lyric  Advance  command. 
Continue  to  press  [RETURN]  until  the 
status  line  shows  Mode:  Text. 

You  can  abort  play  mode  by  press- 
ing [ESC].  Pressing  [ESC]  while  in  text 
mode  will  return  you  to  the  Main 
Menu. 

LYRIC  COMMAND 
SUMMARY 

L  =  (followed  by  up  to  20  charac- 
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ters)  [RETURN]— Enters  a  line  of  lyrics 
into  the  Lyric  Editor 

S  =  (followed  by  any  sequence  of 
letters  from  A  to  T)  [RETURN]— 
Assigns  syllables  to  the  highlighted 
lyric  text. 

C  =  (followed  by  any  sequence  of 
letters  from  A  to  T)  [RETURN]— 
Removes  syllables  from  the  high- 
lighted lyric  text. 

P  [RETURN]— Changes  to  Play 
Mode  and  will  perform  the  high- 
lighted lyric  text.  Pressing  [RETURN] 
repeatedly  simulates  the  Lyric  Ad- 
vance command. 

[CONTROL]  [UP-ARROW]— Moves 
the  pointer  up  one  line.  [CONTROL] 
[DOWN-ARROW]  moves  the  pointer 
down  one  line 

[CONTROL]  [LEFT-ARROW]  shifts 
the  highlighted  text  one  space  to  the 
right.  The  leftmost  character,  if  any, 
will  now  "wrap  around"  and  become 
the  rightmost  character  [CONTROL] 
[RIGHT-ARROW]  shifts  the  high- 
lighted text  one  space  to  the  left. 

[TAB] — Copies  the  highlighted  line 
of  lyrics  down  to  the  command  line 
where  it  can  be  edited  by  pressing  the 
[DELETE/BACKSPACE]  key. 

[CONTROL]  [DELETE]— Deletes 
the  highlighted  line  of  lyrics  and 
places  it  in  a  one-line  buffer  Any 
previous  line  stored  in  the  buffer  will 
be  lost. 

[CONTROL]  [INSERT}— Takes  the 
line  of  lyrics  currently  in  the  buffer 
and  inserts  it  directly  above  the  high- 
lighted line  of  lyrics. 

[CONTROL]  [CLEAR]— An  alterna- 
tive to  the  C  =  command,  clears  ALL 
of  the  syllables  in  the  highlighted  line 
of  lyrics. 

[ESC]— While  in  Play  Mode,  [ESC] 
can  be  used  to  return  to  Text  Mode. 
While  in  Text  Mode,  hovever,  [ESC]  is 
used  to  return  to  AMP's  Main  Menu. A 

Steven  Lashower  studies  Computer 
Science  at  California  State  University, 
Fullerton  and  works  at  Disneyland.  He 
would  be  glad  to  see  your  comments  and 
suggestions  about  Antic  Music  Processor, 
if  you  send  them  to  htm  i?r  care  of  Antic. 


Fill 

in 

coupon 

and 

mail 

to: 


ANTIC,  P.O.  BOX  1569 
MARTINEZ,  CA  9455.^ 

n  /  am  also  a  start  subscriber. 


New 
Address 


f 

Don't  forget  us! 


Name 


Address 


City 


Song 

Challeng 

Winners! 


'  'Rhapsody  In  Blue' '  playing  on  your  Atari 


By  Carolyn  Cushman,  Antic  Assistant  Editor 


M    ntic  Music  Processor,  our 
/m    December    1988    Super 
^"^B    Disk  Bonus,  proved  to  be 
JL  JL  one  of  Antic's  most  popu- 
lar programs  ever.  We  received  many 
letters  praising  the  program  and  sug- 
gesting improvements — and  dozens 
of  entries  for  the  Antic  Song  Chal- 
lenge. The  editorial  staff  had  a  great 
time  playing  all  the  tunes. 

The  songs  ranged  from  Vivaldi  to 
Led  Zeppelin  and  Billy  Joel.  One 
hardy  soul  entered  Mussorgsky's  "Pic- 
tures at  an  Exhibition"  in  two  files  for 
a  total  of  465  sectors  of  music.  We 
received  ragtime,  polka,  rock  and  pop 
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tunes— and  even  one  original  sym- 
phony. Despite  the  lack  of  a  lyric  edi- 
tor in  our  first  version  of  Antic  Music 
Processor,  two  entries  even  had  lyrics! 

Our  Grand  Winner  is  G.R.  Poole 
of  Virginia  Beach,  Virginia.  His  five 
ragtime  tunes,  all  "Music  of  Scott 
Joplin",  showed  an  outstanding  sen- 
sitivity to  dynamics,  tempo  and 
sound  envelopes.  "The  Augustan 
Club",  a  lively  waltz  tune,  proved  a  fa- 
vorite with  several  editors. 

Mr.  Poole  uses  his  computer  in  his 
work  in  the  beverage  wholesale  busi- 
ness. He  conunents: 


"I  have  been  an  Antic  reader  since 
its  begmning.  Most  of  the  programs 
never  caught  my  interest.  Stephen 
Lashower's  Antic  Music  Processor  is 
the  first  program  that  1  can't  get 
enough  of.  Being  a  retired  Navy  Mu- 
sician who  never  mastered  the  key- 
board, I  have  always  been  frustrated 
by  the  fact  that  the  piano  and  I  were 
not  meant  to  be.  Well,  thanks  to  Antic 
I  can  do  what  1  always  wanted  to 
do — play  Scott  Joplin.  Thank  you  for 
a  superb  program." 

The  winner  will  receive  an  Antic 
Software  product  from  The  Arcade 
Catalog. 

ANTIC,  THE  ATARI  RESOURCE 


RUNNER-UPS 

We  received  so  many  excellent  en- 
tries we  have  eight  runner-up  win- 
ners. All  of  the  runners-up  will  receive 
this  month's  Antic  Disk  issue. 

Unfortunately,  many  of  the  best 
song  files  we  received  were  very  large. 
There  were  so  many  good  runner-ups, 
in  fact,  that  we  won't  be  able  to  put 


tion  of  Mussorgsky 's  piece,  the  move- 
ments, and  the  artworks  they  were 
based  on. 

The  "Promenade"  portion  of  this 
piece  will  be  familiar  to  owners  of 
XE/XL  computers — the  Audio-Visual 
Self-Test  plays  the  first  measure  of  this 
piece.  (To  see  this  Self-Test,  type  BYE 
from   BASIC,    then    [SELECT]    the 


worth  a  runner-up  position. 

Peter  Fries  of  Piano,  Texas  sent  in 
a  long  version  of  Ravel's  "Bolero"  that 
deserves  extra  runner-up  credit  for  in- 
cluding text  in  the  form  of  a  title 
screen  and  "program  notes"  on  com- 
poser and  arranger.  This  is  a  much 
handier  system  than  trying  to  identify 
song  files  with  just  a  file  name!  At  I65 


"The  piano  and  I 
were  not  meant  to  be.  Well, 

thanks  to 
AMP  I  can 
do  what  I 
always  wanted 
to  do  —  play 
Scott  Joplin." 
Grand  Winner 
G.R.  Poole. 


G.R.  Poole 

them  all  on  disk.  To  fit  in  as  many 
songs  as  possible  we  have  even  cut 
some  of  them  to  give  you  a  sampling. 
Full  versions  of  the  contest  winners 
will  be  available  for  downloading 
from  ANTIC  ONLINE  this  month.  Af- 
ter you  log  onto  CompuSer^'^e,  type 
GO  ANT-2550  and  follow  the  on- 
screen instructions. 

Runner-up  Kevin  O'Neil  of  West- 
minster, Colorado  produced  the  huge 
"Pictures  At  An  Exhibition"  files, 
definitely  pushing  the  Atari's  limits.  A 
programmer  by  day  and  a  rock  key- 
board player  by  night,  he  demon- 
strated a  real  talent  for  meter  and  dy- 
namics in  translating  this  complex 
piece  into  four  voices.  Thoughtfully, 
he  also  included  a  thorough  descrip- 


Audio-Visual  test.) 

Glenn  Saunders  of  Needham,  Mass. 
sent  in  six  Led  Zeppelin  tunes  (and 
one  from  The  Monkees).  The  bouncy 
Led  Zeppelin  tune  "D'yer  Mak'er"  was 
selected  as  a  runner-up.  It's  definitely 
got  a  beat  you  can  dance  to! 

Lee  Vaughan  took  another  runner- 
up  spot  with  his  rendition  of  a  Bach 
Prelude.  We  picked  this  particular 
piece  for  its  interesting  trills  and  use 
of  contrasting  slurs  and  staccato. 

Lyle  Davis  of  Cleveland,  Ohio  sent 
in  an  original  composition,  "Sym- 
phony #1  in  A".  Considered  "interest- 
ingly Modern"  by  one  judge,  others 
found  it  somewhat  discordant,  but 
the  First  Movement,  with  its  heavy 
bass  beat,  was  considered  definitely 


sectors,  however,  the  whole  song  is 
too  long  to  include  on  disk — and  cut- 
ting it  short  would  remove  the  gradual 
build  in  volume  that  makes  "Bolero" 
so  intense. 

Mitch  Cohen  also  produced  an  im- 
pressive, longer  runner-up,  with  some 
interesting  percussion  effects — 
"Roundabout"  by  Yes. 

Cornelius  Robinson  of  St.  Rose, 
Louisiana,  entered  several  classic 
pieces.  We  picked  his  lyrical  version 
of  Antonio  Vivaldi's  "Spring"  (from 
"The  Four  Seasons")  as  a  runner-up. 

Charles  Anderson  receives  a 
runner-up  award  for  his  rendition  of 
"Rhapsody  in  Blue"  by  George 
Gershwin — at  245  sectors,  the  longest 
single  song  file  we  received. 

HONORABLE  MENTIONS 

Honorable  Mentions  go  to  Roger 
Jensen  of  West  Jordan,  Utah,  who  sent 
in  13  songs  (including  "Chopsticks", 
"Beer  Barrel  Polka",  and  "Music  Box 
Dancer");  David  Warren  of  Poway, 
California  ("Black  Magic  Woman"  and 
"Dance  of  the  Hours");  Nathan 
Becker  of  Thousand  Oaks,  California 
("Splish  Splash",  "Wipe  Out"  and 
"Barbara  Ann");  Robert  Labelle  of  Ot- 
tawa, Ontario,  Canada  ("Summer  of 
'69",  "Stairway  to  Heaven"). 
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SOFTWARE  LIBRARY 

TYPING  SPECIAL  ATARI  CHARACTERS 


NORMAL  VIDEO 

INVERSE  VIDEO 

FOR                 TYPE 

FOR             TYPE 

FOR              TYPE 

THIS                 THIS 

THIS             THIS 

THIS              THIS 

SCTRL    , 

ffi  CTRL  S 

□  ESC 

ffiCTRL  A 

m  CTRL  T 

SHIFT 

□  CTRL   B 

B  CTRL  U 

DELETE 

ffl CTRL  C 

D  CTRL  V 

es  ESC 

91  CTRL   D 

a  CTRL  W 

SHIFT 
INSERT 
□  ESC 
CTRL 

fi]  CTRL   E 
0CTRL   F 

ffl  CTRL  X 
E  CTRL  Y 

ta  CTRL  G 

ffl  CTRL  Z 

TAB 

a  CTRL  H 

G  ESC  ESC 

□    ESC 

QCTRL   I 

m  ESC  CTRL   - 

SHIFT 

B  CTRL  J 

ffi  ESC  CTRL   = 

TAB 

H  CTRL   K 

ffi  ESC  CTRL  + 

n    A  CTRL    . 

B  CTRL  L 

ffl  ESC  CTRL   ' 

□    A  CTRL    ; 

n  CTRL  M 

m  CTRL    . 

O    ASHIFT  = 

Q  CTRL  N 

ffl  CTRL    ; 

□   ESC  CTRL  2 

B  CTRL  0 

OD  SHIFT   = 

□  ESC 

ffi  CTRL   P 

H  ESC    SHIFT 

CTRL 

ffl  CTRL  Q 

CLEAR 

DELETE 

e  CTRL  R 

ffl  ESC  DELETE 
IB  ESC  TAB 

D  ESC 

CTRL 
INSERT 

The  Atari  Special  Characters  and 
the  keys  you  must  type  in  order  to 
get  them  are  shown  below: 

For  [CONTROL]  key  combina- 
tion, hold  down  [CONTROL]  while 
pressing  the  next  key.  For  inverse 
[CONTROL]  [A]  through 
[CONTROL]  [Z],  press  the  [01] 
key— or  [/k  ]  on  the  400/800— then 
release  it  before  pressing  the  next 
key.  (Press  [  HI  ]  or  [  ^k  ]  again  to  turn 
off  inverse.)  For  [ESC]  key  combina- 
tions, press  [ESC]  and  then  release 
it  before  pressing  the  next  key. 

Carefully  study  the  chart  above 
and  pay  close  attention  to  differ- 
ences between  lookalike  characters 
such  as  the  slash  key's  [/]  and  the 
[CONTROL]  [F]  symbol  [0]. 


TYPO  II  AUTOMATIC  PROOFREADER 

TYPO  II  automatically  proofreads  Antic's  type-in  BASIC  listings.  Type  in  the  listing  below  and  SAVE  a  copy  to  disk 
or  cassette.  Now  type  GOTO  32000.  At  the  prompt,  type  in  a  single  program  line  without  the  two-letter  TYPO  II 
code  at  the  beginning.  Then  press  [RETURN]. 

Your  line  will  reappear  at  the  bottom  of  the  screen.  If  the  TYPO  II  code  does  not  match  the  code  in  the  magazine, 
then  you've  mistyped  your  line. 

To  call  back  a  previously  typed  line,  type  [*],  then  the  line  number,  then  [RETURN].  When  the  completed  line  ap- 
pears, press  [RETURN]  again.  This  is  how  TYPO  II  proofreads  itself. 

To  LIST  your  program,  press  [BREAK]  and  type  LIST.  To  return  to  TYPO  II,  type  GOTO  32000.  To  remove  TYPO 
II  from  your  program,  type  LIST  "D:FILENAME",0,31999,  then  [RETURN],  then  NEW,  then  ENTER  "DiFILENAME", 
then  [RETURN].  Now  you  can  SAVE  or  LIST  your  program  to  disk  or  cassette. 


^ 


Don't  type  the 
TVPO  II  Codes! 


UB 

un 

H5 

BN 

VC 

EH 

HS 
XH 


TH 

riF 


32008  REM  TVPO  II  BV  fiNDV  BARTON 

32010  REM  UER.  1.0  FOR  ONTIC  MflGnZINE 

32020  CLR  :DIM  LINES c 120 J = CLOSE  »2:CL0 
SE  03 

32030  OPEN  «2,4, 0. "E" ! OPEN  «3.5,0,"E" 

32040   ?  ••«■■:  POSITION  11,1  =  ?  "nnramBDnB" 

32050  TRfiP  32040 iPOSITION  2,3i?  "Type 

in  a  progran  line" 

32060  POSITION  1,4!?  "  ":INPUT  «2;LINE 

S:IF  LINES=""  THEN  POSITION  2,4iLIST  B 

:GOTO  32060 

32070  IF  LINESC1.1J="»»"  THEN  B  =  UnLcLIN 

ES t2, LENtLINESJJJ :POSITION  2,4!LIST  B: 

GOTO  32060 

32080  POSITION  2,10!?  "CONT" 

32090  B=00LCLINE6> !P05ITI0N  1.3:?  "  "; 


NV 
CN 
ET 

CE 
QR 


UU 

UJ 
JI4 
EH 
BH 
HB 
IE 

UG 


32100  POKE  842,13!ST0P 

32110  POKE  842,12 

32128    ?    "<<"!  POSITION    11,  l!?    "■IIHriJIilBlillB 

"!POSITION  2,15!LIST  B 

32130  C=0!nN5=C 

32140  POSITION  2.16!INPUT  «3;LINES!IF 

LINES=""  THEN  ?  "LINE  ";B;"  DELETED"!G 

OTO  32858 

32150    FOR    0=1     TO    LEN cLINESJ : C=C+1 ! 0N5= 

nNS+ CCWRSC  (LINES  (D, D>>>  !NEXT     D 

32160     CODE=INT cnNS/67ei 

32170     CODE=ANS- CC0DE»676> 

32180    HCODE=INT {C0DE/26> 

32190    LCODE=CODE- tHC0DE»26>+65 

32200    HC0DE=HC0DE+65 

32210    POSITION    0,16!?    CHRS  (HCODE> ; CHRS 

CLC0DE> 

32220  POSITION  2,13!?  "If  CODE  does  no 

t    natch    press    ■riir^uniian    and    edit    line    a 

boue."!GOTO    32858 
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Can  YOU  survive  three  minutes  in  the  death  pit? 

Doomed 


Article  on  page  18 


LISTING  1 


Don't  type  the 
ryPO  II  Codes' 


<:^ 


vu 

UK 
PF 
MB 


sx 
uu 

KH 
LK 

TK 

IJ 

HQ 

UY 

fiV 
NE 

VD 

Hb 

EK 

EV 

ZV 

VQ 
V\ 

ZS 

JU 

HT 

GT 

EZ 

BB 
OJ 


EB 
LK 

ZU 
TH 

TD 

GU 

CO 

UJ 

YI 

MY 
AO 
OR 
TB 
SU 
LO 
L5 
TA 
HK 

ER 


2  REM  DUOMED 

4  REM  BY  TUNY  BARNES 

6  REM  tc>1989,  ANTIC  PUBLISHING  INC. 

10  GRAPHICS  18:GUSUB  5e:G0SUB  28008:60 
SUU  11808:GOSUU  18e80:GOSUB  550O:GOSUB 

48 
20  POSITION  3.?!?  «6;"»'":P0SITI0N  3.8 
:  ?  «6  ;  "  t>  »♦«+  ,  -•' 

2b  POSITION  8.9:?  «6;"tony  barnes     a 
nt  i  c  ■■ ; 

38  GOTO  8888 

48    POKE     788-6:P0KE    718.22:P0KE    789.10: 
RETURN 
be    BRK=USR(ADRC"hamnMhhni>l[3NapCISiiU[:7l«">  . 

11  !  RETURN 

60  FOR  T=lb  TO  0  STEP  -1:S0UND  0.193.1 

8.T:SUUND  1 . 47 . 12 , T : NEXT  T 

65  5C:::SC  +  5:P0KE  53278  ,  1  :  POSITION  8.11: 

?  <t6;  SC:RETURN 

180  IF  PEEKC19>>=4  THEN  POKE  19.0:LUL= 

LUI.  +  l:IF  LUL>8  THEN  1380 

185  MN=  NOT  MN:IF  MN  THEN  288 

110  IF  X2<5?  OR  X2>190  OR  Zl=l  THEN  13 

0 

115  X2  =  X2  +  D2 : POKE  53250 . X2  :  SOUND  3. PEE 

Kc53770> .2. l:RETURN 

130  FOR  T=200  TO  192  STEP  -1:S0UND  0,T 

.12.2:P0KE  706,T:NEXT  T 

13b  POKE  53258, 0:POKE  786 , 200  :  Zl  =  e : P2$ 

=  PMS:I  =  INT  CRNDC0>«2> 

140    D2=LUL«CI=0J -LUL«CI>0> :X2=57»cI=0» 

+  19  8»»fI>0J  :I  =  INTCRNDC0>»*3>+1 

145    Y2  =  31»tl  =  lJ+39»tI  =  2>+47»»U  =  3»  :  IF    D 

2<0  THEN  P2S  CY2>=:BRS  :RETURN 

158  IF  D2>8  THEN  P2S cY2> =BLS  :  RETURN 

280  IF  X3<57  UR  X3>198  OR  Z2=l  THEN  22 

0 

205  X3=X3*D3:P0KE  53251 . X3 : SOUND  2. PEE 

Kc53/78> .2.1:RETURN 

210  FOR  T=288  TO  192  STEP  -1:50UND  8.T 

.12,2:P0KE  787,T:NEXT  T 

228  POKE  53251. 8:P0KE  70? . 280  :  Z2  =  0  :  P3$ 

=PMS:I=INTCRND<8»»2> 

225  D3=LUL»cI=e>-LUL»cI>0> : X3=57* cl=0> 

+  190»«tI>0»:I  =  INTcRND{0J»3>+l 

230    V3  =  31»»CI  =  1J+39»CI  =  2>+47»CI  =  3»  :  IF    D 

3<0  THEN  P3«<Y3J=BRS:RETURN 

235  IF  D3>0  THEN  P3S CY3» =BLS : RETURN 

250  I=INTcRND C0>M18>+1: LOCATE  X.5.Z:T= 

132»cz  =  132  OR  Z  =  162>+162*cZ  =  161J+35«»cZ 

=  35> 

255  COLOR  T:PLOT  I,5:RETURN 

1088  ST=PEEK(632> :GOSUB  180:POKE  53278 

.l:IF  PEEKC532681 >8  THEN  GOSUB  1288 

1881  IF  LML>5  THEN  GOSUB  250 

1002  IF  PEEKt644»=0  AND  ST<12  THEN  110 

8 

1005    X  =  INTccXl-44>^8>  :Y  =  INTccYl-16J/'8> 

:LOCATE  X.Y  +  2.Z:IF  Z=:132  THEN  1250 

1010  IF  Z=32  THEN  Y1=Y1+1:IF  ST>12  THE 

N  P0SCY1>=:R1S 

1015  IF  CST=18  OR  ST=6  OR  ST=14»  AND  Z 

032  THEN  1158 

1838  X  =  X-«:ST>8  AND  ST  <12>  +  cST<8>  :  IF  X< 

1  OR  X>18  THEN  1035 

1832  X1  =  X1-2»*CST>8  AND  ST  <  12> +2»*  CST  <  8> 

:ULK=  NOT  ULK 

1035  IF  ST<8  THEN  1868 

1837  IF  ST>12  THEN  1880 

1040  IF  MLK=0  THEN  P0ScYl>=Rl$ 

1045  IF  ULK=1  THEN  P0ScYlJ=R2* 

1055  POKE  53248. XI :GOTO  1088 

1060  IF  ULK=0  THEN  P0ScYl>=L2« 

1065  IF  ULK=1  THEN  P0SCY1»=L1$ 

1075  POKE  53248, Xl:GOTO  1000 

1100  SOUND  0. 143,ie.3:S0UND  1,147.10.3 

:POKE  5  324  9.  Xl-17»«cST>BJ+9««cST<8» 

1105  GOSUB  100:IF  ST>8  THEN  P8$cYli=Rl 


TH 
JU 
HI 
OK 
UQ 

KN 

RX 
HX 
DE 

UU 
QJ 

UZ 
UY 

BU 
HR 
UZ 

PA 

MV 

ZU 

YZ 

ZD 

KX 

AM 

GP 
UK 
ZT 
DP 
FZ 
IM 
OS 

KI 

KF 

MO 

YU 

FT 

SF 

UH 

IL 

RT 
UC 

DC 
JT 
ZE 
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Si  P1SCY1  +  3>="US3" 

1110  IF  5T<8  THEN  P0S < Vl> =L1S : PIS cYl+3 

j="EaU" 

1115  POKE  705, PEEKC20J :IF  PEEKt53261>- 

4  THEN  Zl=l:GOSUB  60 

1120  IF  PEEKc53261>=e  THEN  Z2-1:G05UD 

60 

1125  POKE  53278. l:IF  PEEKf 53260J > =4  TH 

EN  GOSUB  1280 

1130  SOUND  e.0.0.0:SOUMD  1 . 0 . 0 . 0  :  P1S  =  P 

MSrpOKE  53249. 255:P0KE  53278, 1:G0T0  10 

05 

1150  FOR  B=0  TO  10:SOUND  8-180,8,10-0: 

IF  XK57  OR  Xl>191  THEN  1165 

1160  X1=X1- cST=10»+tST=6> 

1165  Yl  =  Vl-l:IF  ST  =  14  THEN  P0ScYU:^L2S 

1170  IF  ST>8  AND  5T<12  THEN  P0$cYl>=Rl 

1175  IF  ST<8  THEN  P0SCV1>=L1S 

1180  POKE  53278, l:GOSUB  100:IF  PEEKC53 

260>>=4  THEN  GOSUB  1280 

1185  POKE  53248, Xl:NEXT  a:GOTO  1888 

1200  FOR  T=15  TO  0  STEP  -1:S0UND  l.PEE 

KC53?70> , 10, T :NEXT  T 

1205  PWR=PUR-l:IF  PMR<-1  THEN  1250 

1210  COLOR  32:PL0T  11+PUR , 11 : RETURN 

1250  POP  :FOR  1=0  TO  3 : SOUND  I.e,0.e:N 

EXT  I 

1255  FOR  T=0  TO  15:S0UND  0 . PEEK C537701 

,8,1:S0UND  1,PEEKC53778J , 12, T :NEXT  T 

1260  FOR  T=15  TO  0  STEP  -1:S0UND  0.PEE 

KC53770> .8,T 

1270  SOUND  l.PEEKc53770> ,12,T:F0R  1=70 

4  TO  711:P0KE  I,T:NEXT  I:NEXT  T 

1275  FOR  T  =  0  TO  30e:NEXT  T  :  P8«  =  PMS : PIS 

=  P0S  :  P2S  =  PMS : P3S  =  PMS:G0T0  8000 

1300  FOR  T=140  TO  126  STEP  -0.3:SOUND 

0,  T,  8,2  :SOUND  1 , T , 12 . 2 : POKE  704, T 

1305     NEXT     T  :P0S  =  PMSiPlS  =  PriS:P2S  =  PMS  :P3 

S=PMS:FOR    T=0     TO    3:S0UND    T, 0.0,0 

1310  POKE  53248+T, 0 :NEXT  T:POKE  559,0: 

POKE  711,146:P05ITI0N  0,0 

aaHHo>t»nt*»»ttt«««tt*«HllBH" : 

n     HunimuyaiiuuttHn     u- ; 

M  ayn       a- ; 

uu  51"; 

UUU  ffl"; 

HHHHIianHlinHnnilHHaHOH'- ; 

1345    P3S t36J=HS:P0S C39»=R1S :POKE    53251 

,88:P0KE     53248 . 120  :  POKE    559,46 

1350    POKE    707.255:FOR    T=0    TO    4e0:NEXT 

T : TMR=0 

1355  IF  TMR<60  THEN  POSITION  0.11:?  »6 

;"VOU  HAUE  EARNED  ■■ 

1360  IF  TMR>60  AND  TMR<120  THEN  POSITI 

ON  0.11:?  «6;"Y0UR  FREEDOM 

1365  IF  TMRM20  AND  TMR<28e  THEN  POSIT 

ION    0.11:?    ue;  "[mm^[m\WBIBia 

1370  IF  TMH>200  AND  TMR<250  THEN  POSIT 

ION  0.11:?  «6;"I  MAS  INNOCENT   •■ 

1375  IF  TMR>250  AND  TMR<280  THEN  POSIT 

ION  8.11:?  «»6;"T0  BEGIN  WITH 

1380  IF  TMR>288  THEN  POSITION  8,11:?  » 

6;"HA  HA  HA  HA  HA" 

1385  TMH=TMR+1 ! POKE  707 , 248+4* <RND C0> » 

1J:IF  TMR<310  THEN  1355 

1390  GOTO  1260 

5500  POKE  559,0:DIM  FS cl j , F2S c tINT t ADR 

CFS»-'1024>+1»»«10  24-ADRCFSJ-1».PMSC384> 

.MS  C128> 

5505  DIM  P0S tl28> .P1S«128J . P2SC128> .P3 

S«12BJ 

5510     PMS  =  ■•«•■  :PMSC 3 84 »=■•«••  :  PMS  C2>=PMS:M 

$=pnS :P0S=MS:P1*=P0S:P2S=P1S:P3S=P2S 

5515  POKE  54279. ADRfPMSi /256:P0KE  5327 

7.3:P0KE  623,24:P0KE  53257,1 
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1315 

? 

«6 

1320 

? 

tt6 

1325 

? 

M6 

1330 

? 

M6 

1335 

? 

*t6 

1340 

? 

*t6 

5520    DIM    Ll$cl8>,L2«ci8t .Rl$ci8>,R2$cl 

81 .BL$cl2> ,BR$C12> , H«ciei  KU 

5530    LlS  =  "BDSlffllj0lr<Lp<a[!inFE)»"  RP 

5540    L2$  =  "Ba[e9;a0IIInHHD>7cclKrgm"  UF 

5545    RlS  =  "np8xpn6N<2L:j<pa9e0l¥l"  XU 

555  0  H2s="mpaxpFi>vwm:\i]aatimm" 

5555  BL$="nB<a]anaaa]<mii"  ft 

5568  BR$="iin<a]BnDaE<ii<ffin" 

5565  H$  =  "n<aiQOU[e?l«l«"s  RETURN 

6808  POKE  559,46<G0SUB  4e:P0SITiaN  0.8 

:POKE  711.146>P0KE  53248,120  1U 

8805  ?  tt6;  "Hliailt*t<Mt*«t*«ttt«ttttttttanBa"J  UK 

8010    ?    M6;"«*      HHBaHOBauaaiiaB      B";  GX 

8015    ?    «6;"««  S";  5H 

8820    7    »»6;"««  SI"; 

8825    7    U6:"U»»  il"  i 

8  838    7    «t6 ;  "BflBBflBBBBBBflflflyBnaBB" ;  E  U 

8835    POKE    53251. 80>P3Sc36i=H»<P0$c39i= 

R1«:50UND    0. 121 . 10. 4 : SOUND    1.162.10.4  U 

8040  SOUND  2.64.12.3>F0R  T=0  TO  50>NEX     PR 

T  T:POKE  559.46IF0R  T=0  TO  50!NEXT  T 

8845  FOR  T=128  TO  140  STEP  0.5! POKE  70     MU 

4.T:S0UND  3 . T . 8 , T-128 s NEXT  T 

8850  FOR  T=252  TO  255  STEP  0 . 5 : POKE  70     RU 

7.TIS0UND  3.T.6.T-252INEXT  T 

8855  FOR  T=4  TO  8  STEP  -8.3iS0UND  0.18     PV 

2.10.TSS0UND  1.144. 10. TsSOUND  2.64.12. 

T  TH 

8860  NEXT  T > SOUND  3. 0. 0. 0 > TnR=8  UD 

8065  POKE  707.248+6»CCRNDc8>M2> >ti :TnR 

=TMR+1  MV 

8070  IF  TnR>210  THEN  POSITION  0.11:?  t»     KU 

6 ;  "laiamBBHsniiisaaiinsDiiiiaD"  ;:goto8180  pu 

8075  IF  TnR>60  AND  TnR<90  THEN  POSITIO 

N  8,11>7  tt6;"GUILTY  AS  CHARGED"  I.M 

8880  IF  TnR>98  AND  TnR<120  THEN  POSITI 

ON  0.11:?  tt6 ; "[amnBHBEiiTiBninmmiitiimn"  oa 

8885  IF  TnR>128  AND  TI1R<168  THEN  POSIT     VC 

ION  0.11t7  «6;"      GUILTV 

8090  IF  TMR>160  THEN  POSITION  0.11:?  tt  DM 

6;"T0  THE  DOOn  CHOnOER" 

8092  IF  PEEK<644>=0  THEN  TriR=:210  BK 

8895  GOTO  8865 

8108  FOR  T=140  TO  128  STEP  -0.3iPOKE  7     MM 

04.T!SOUND  3.T.6.T-1281NEXT  TsPOKE  704 

,8 

8110  POKE  707.248  +  6MCCRND  (0>M2l  >li  :IF      I'.h 

PEEKC644>  THEN  8110 

8115  5C=0!PMR=9!THR=0i Yl=39iX2=0iX3=0!     UU 

LUL=1 !P0S<yiJ=L2S 

8120    POKE    704,170>POKE    559.0:POKE    5325  AK 

1>0:POKE     53248, OiPOSITION    0.0  PU 

8125    7    ttS ; "BBBflMMBBBBBflBBttttflBBB" ;  AL 

SI      BBBB  BBBB      B" ; 

SI  «";  JU 

SI  fl";  UU 

'SI  U"s 

BBttttBttBBMMttBBBttMBBttB"  i  POSIT 

ION    8.11!?    »»6;"8  "!POKE    559.46  ZG 

8155  COLOR  192!PL0T  9.11:DRAMT0  19.11: 

FOR  T=4  TO  1  STEP  -liCOLOH  32 

8160  PLOT  O.TiFOR  1=15  TO  6  STEP  -0.5:     OE 

SOUND  0.237. 18. IiSOUND  1.192.12.1 

8165  NEXT  l!NEXT  TiFOR  Xl=48  TO  64  STE 

P  0.5:SOUND  2 . XI . 10 . 2 : POKE  53248. XI         CF 

8170  NEXT  Xl!FOR  T=l  TO  4!C0L0R  5:PL0T 
0.T:FOR  1=6  TO  0  STEP  -0.3 

8175  SOUND  8.237.10.I:S0UND  1.192.12.1     UH 

:NEXT  l!NEXT  T!SOUND  2.0.0.0 

8180  POKE  711.32<60T0  1000 

10888  RESTORE  11180:READ  DNUM  PE 

10010  D=PEEK(560>+256»PEEKC561i 

10020  FOR  1=1  TO  DNUn:READ  B : POKE  D+B. 

PEEKCD+B>+128:NEXT  I  55 

10030  B=INT(ADRcDLX$i^256> :A=ADRCDLI«> 

-B«256:P0KE  512.A:P0KE  513. B 

10040    POKE    54286. 192:P0KE    256.Z:RETURN  FH 

11088    Din    DLIS  C55>  :DLI$  =  "HBn[tl[I]n[fiaBann(Sl 

i^a>  Bi  JbJh  eMi£[iisa  ■  BUBh  catiBnnaaH" 

11818  DLI$c41>="UQIBSiinBS[aa    HSfah(!":RETUR  HD 

N 

11100  DATA    3.10.11.12 

20000  POKE    559.0:CHR=38912iI=256«224!P  GR 

OKE    756.152 

20085  Din    C$cl26i 

28886  C«(1.63>="  [HnDBDQDBaLintillllDraDaCSS'B"  X  U 

nananainmnmsoDDsiSBCiiffiQHDBeifE?  <  magi?[£smB<  <  m 
*kipi" 

20007    C$c64.126>="aNaS<<BD[EQO!SICICIS9iaESKI«l  EB 

edDsnw>nnsi>ikrrif f[Nrii»i>c[ahD»i6nnBnfflg3ffiB  m  o 

8<8e  " 

20010  nuu=A0Rc"hhaiiiha(i3ha[TihaDhan]ha[iiBii!QG]        ix 


ni'iritiiiji  jn[iin[3fij!  iRiEiamiaBa[iii«o»i"  > 

20815  I=;U5RtM0U.  57344.  38912. 1024> 

20020  FOR  X=l  TO  LENcCSi  STEP  9 

20030  0FF5ET=A5CCCS ex. XJ> 

20035  Z=USRcnOU,ADRcC$cX+li>.CHR+OFFSE 

T»8.8» !NEXT  X 

28840  Z=7:RETURN 


LISTING  2 


8138 

? 

«t6 

8135 

? 

»6 

8148 

7 

««6 

8145 

? 

tt6 

8158 

7 

ne 

lb 

28 

38 

3b 

18 

UO 

48 

Of 

58 

68 

EE 

70 

AM 

88 

5 

90 

58 

18 

11 

TI 

12 

13 

14 

se 

15 

C  = 

16 

1? 

2, 

18 

wn 

19 

1  ! 

28 
MA 
E! 
21 
L 
22 
ss 
23 
24 
25 


REM  DIIUME 
REM  BV  TO 
HEM  cc>  1 
REM  CCREA 

08-11818  A 

5J 
REM  CLINE 

HER  UA5IC 
REM  CHANG 
DIM  FN$C2 

Kcieb92> !P 
FNS="D:LI 

E    OF     THE    D 
7    "NliJiSk 

IF  NOT  c 
>  THEN  98 
8  IF  PEEK* 
8  POKE  764 
C'S  GENERI 
8  7  ."BY  C 
0  POKE  105 
0  ?  !  7  :  ? 

Stand  by. 
0  RESTORE 
1 

0  nRS="":R 
8  FOR  X=l 
255 

0  LM=LM-l: 
.  .  .T-";INT 
8  ASlC.C>= 
NEXT  X:GOT 
8  IF  PEEK* 
NY  DATA  LI 
":  END 

8  If  C<LM* 
INtS!":?  " 
0  IF  FNS=" 
ette.  pres 
8  OPEN  «1. 
0  PUKE  766 
8  CLOSE  «*1 


D.  LISTING  2 

NY  BARNES 

985,1989  ANTIC  PUBLISHING 

TES  LINES  58.  5530-5565,  1 

ND  20086-28818  FOR  DOOnED. 

S  18-250  MAY  BE  USED  WITH 
LOADERS  IN  THIS  ISSUE. 
E  LINE  70  AS  NECESSARY.! 
0>,TEnP$c20>.AR$c93> :DPL=P 
OKE  10592,255 

NES.L5T"!REM  THIS  IS  THE  N 
I5K  FILE  TO  BE  CREATED 
or  Cassette?": : POKE  764.25 

PEEKt764J=18  OR  PEEKc764J= 

764»=18  THEN  FNS="Ci" 
,255:GRAPHICS  0:?  "       AN 
C  BASIC  LOADER" 
HARLES  JACKSON" 
92.DPL:TRAP  200 
"Creating  ";FN*:7  "...piea 

!READ  LN!Ln=LN:Din  AS cLN> : 

EAD  AR$ 

TO  LENcAR$>  STEP  3!P0KE  75 

POSITION  10.10:?  "cCountdo 

tLMz-lO!;"* 

CHRS  cUALcAR«cX.X  +  2>>»  :C  =  C  + 

0  160 

195>=5  THEN  7  :?  :?  "BTOO 
NES!"!?  "CANNOT  CREATE  FIL 

1  THEN  7  !?  "QTOO  FEU  DATA 
CANNOT  CREATE  FILE!":END 
C!"  THEN  7  !?  "  Prepare  ca 
s  [RETURN]" 

8.0.FN$ 

.1!?  ««lj  AS;  :POKE  766.0 

!GRAPHICS   0:?   "BMrniiifsitir^ni^roB 


1000  DATA  582 

1818  DATA  8538488328668820750610850830 

82  04  0865868882  04  08  34104169000133077104 

10420100824  0007169112133016 

1020  DATA  1410142188968348418440490410 

58882869084  085082878832155853053051048 

03207604  9036061034000014828 

1838  DATA  8308148481081140600761120600 

14  24  623001281288883415585385305204  8832 

876858836861034088814  828030 

1040  DATA  0140481241102222222200620550 

99099195195000034155053053052053032082 

049036061034  000112056120112 

1050  DATA  0120540780600500140601121111 

03  04804888883415505305305304  8032082858 

0360610  34  000112056120112012 

1060  DATA  0621181231238591242361981981 

95195888834155853853853853832066876836 

861034  000000060126221201255 

1070  DATA  2551260600000000341550530530 

54  84  8032066882036061834  008888060126187 

14  7255255126060000000034155 

1088  DATA  8538538548538328728368610340 

00060126251252255127063031000034058882 

869884885882078032155049049 

1090  DATA  0488488488320680730770320688 

76873836  84  8853053041058068076073036061 

034  072173000001238888881141 

1188  DATA  8102122818882080071690411410 

22208104  0  64201001208887169839141822288 

104  064169000141080881169190 

1110  DATA  1418341558498498488498480320 

68076873836040052049041061034022208173 

02  0808141024208169032141026 

1120  DATA  2081040640340580828690840850 

82878032155050  04  8  04  8  04  80  54  032  06703604  0 

049844054  051041061034  081251 

1138  DATA  2551912552512552232540021291 


ANTIC  SOFTWARE  LIBRARY 


HU 
TX 
KZ 


9312725523925525424700322322322300e2bl 

2512S10e00e4008000O0022b243 

1148  DftTft  2552552550852502422261951341 

4215B191Oe612786306O030014031O63127007 

24  024  8868060030030815143034 

1150  DOTO  1550580460480480550320670360 

400  54  052  844  84  98500  54  0410610  34  0080780.14 

038868860190255127009135007 

1160  DATA  8150158381262522488188888481 

80230115227119862811088216127107195182 


UD 
YB 
hP 


182195812088062899242184  224 

1170  DflTfl  1238548130002481181951030511 

232  2283200003204885606005604  88328  34155 

858848048  04  9  84  8832877879886 

1168  DATA  8618658660828488341841841332 

4118413324  818413  32131841332121841332  39 

18413  323816808017724014  5212 

1190  DATA  2382122080022302132302402080 

022302411982382082  341962390162388968  34 

041155 


Customizing  your  Atari 


Operating  System  Device  Handlers 


<A 


Don't  type  the 
TYPO  II  Codes! 


LISTING  1 
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00 
CE 
01 
XG 
YU 

BZ 
HI 
KH 
V\M 

XN 

NO 
AP 
FJ 


10 

11 

12 

15 

16 

0 

17 

18 

19 

28 

40 

21 

,3 

22 

23 

24 


0  REM  NULL  HANDLER  INSTALLATION 

0  REM  BY  BOB  MARTIN 

0  REM  CCI1989, ANTIC  PUBLISHING  INC 

0  RESTORE  :THAP  170 : ADDR-1536 

0  READ  A:POKE  ADDR, A : ADDR= ADDR+ 1 : GOT 

160 

0  TRAP  180: XXX=USRC15361 

0  ?  :?  "N:  HANDLER  INST ALLED !"! END 

0  DATA  104,162,8.169,26 

0  DATA  3,240,7,232,232,232,268,246,2 


242 
0  DATA 


169, 76, 157, 26, 3, 169, 31, 157, 27 


0  DATA  169,6,157,28,3,96,43,6,43,6 
0  DATA  43,6,43,6,43,6,76,44,6,169 
0  DATA  1,166,96,226,2,227,2,0,6 


LISTING  2 


0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
8180 
0280 
0210 
0220 
8230 
0248 
0250 
0260 
0270 
0260 
0290 
0300 
0310 
0320 
8338 
8348 
8358 
0360 
0370 
0360 
8390 
8400 
0410 
0420 
0430 
0448 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0528 
8530 
0540 
0550 
0560 
0570 
0580 


;  ODD  A  NULL  HANDLER 

:  BY  BOB  MARTIN 

;     CC11989,     ANTIC    PUBLISHING    INC 

HATABS    =    $031A 

*-       $0600 

ilNSERT  THE  N:  DEUICE  IN  HATABS 
;   LOOK  FOR  EMPTY  SPOT  IN  HATABS 

INSERT 

LDX  «<0 
NEXTPLACE 

LDA  HATABS, X 

BEQ  ESPOT 

INX 

INX 

TN  X 

BNE  NEXTPLACE 

BEQ  INSERT 

FOUND  AN  EMPVT  SPOT 

ESPOT 

LDA  M-N 

STA  HATABS, X 

LDA  t»NULLT«SFF 

STA  HATABS+1,X 

LDA  aNULLT^'SOlOO 

STA  HATABS+2,X 

RTS 

;HANDLER  TABLE 

NULLT 

.UORD  NULL-1 
.UORD  NULL-1 
.UORD  NULL-1 
.UORD  NULL-1 
.UORD  NULL-1 
JMP  NULL 

;NULL  HANDLER 

NULL 

LDA  ttl 
TAY 


0590 
0600 
0610 
0620 
0630 
0640 
0650 


RTS 

RUN  INITIALIZATION  STEP 

«=   S02E2 
.UORD  INSERT 
.END 


LISTING  3 


JU 
TI 
AD 
HG 
ES 


UZ 
JI 
DM 
Rfl 

as 

IK 
KC 
KU 
JH 

XQ 

UF 
LE 

RN 

nu 

ER 
5C 
TD 

TE 

JL 

NX 

OF 

HU 

SU 

UM 

CX 

XU 

UB 

5F 

UN 

UP 


JUNE  1989 


18  REM  MODIFIED  PRINTER  HANDLER 

28  REM  BOB  MARTIN  &  MARTIN  MERCORELLI 

38  REM  CCJ1989,  ANTIC  PUBLISHING  INC 

35  DIM  A$(20> ,PRG$ c400> ,FNS<2e> 

48  GRAPHICS  8:?  :?  "      Uhat  type  Of  P 

rinter"!?  ■•7     •■  7     ■■7    ,"1  -  Epson":?  ,••2 

-  C  Itoh  ProUriter" 

50  ?  ,"3  -  Other-!?  :inPUT  PR!C=0 

60  UPSIDE=e 

70  IF  PR=3  THEN  GOSUB  2000 

90  POKE  752,1!?  "S  Uorkins 

ioo  READ  B!C  =  C  +  l!lF  BO-1  THEN  PRGScC, 

C>:=CHR$cB>  :GOTO  100 

200  DATA  255,255,0,6,90,6,0,0,0,0 

210  DATA  0,0,0,0,0,0,0,0,0,0 

220  DATA  0,0,76,16,6,162,0,189,26,3 

230  DATA  201,60,240,5,232,232,232,208, 

244,189 

240  DATA  27,3,133,205,189,28,3,133,206 

,169 

250  DATA  0,157,27,3,169,6,157,28,3,160 

260  DATA  15,177,205,153,0,6,136,16,248 

,24 

270  DATA  173,6,6,105,1,141,17,6,173.7 

280  DATA  6,105,0,141,18,6,169,43,141,6 

290  DATA  6,169,6.141,7,6.96,226,2,227 

300  DATA  2,19,6,19,6,229,6,173,186,6 

310  DATA  172,187,6,174,188,6,32,16,6,1 

52 

320  DATA  48,7,142,189,6,140,190,6.96.1 

04 

330  DATA  104.96.141.186.6.140.187.6.14 

2  1  fi  ti 

340  DATA  6.174.255.6.240,21.174.254.6. 

208 

350  DATA  4.201.155.240.12.201.96.240.1 

2,201 

360  DATA  32.144.8.201.123.176.4.32.19. 

6 

378  DATA  96.162.0.142.185.6.169,225,6, 

32 

380  DATA  22,6,174,185,6,232,236,229.6. 

144 

390  DATA  238.173.186,6,32,165.6.133.20 

4.169 

400  DATA  0.133.205.133,206,162,2,24,38 

,204 

410  DATA  38,205,202,16,248,24,169,224, 

101,205 

420  DATA  133,205.162,126.142.185.6,32, 

191,6 

430  DATA  32,22,6,169,0,133,206,78,185, 

6 

440  DATA  174,185,6,208,238,174,169,6,1 

72.190 

continued  on  next  page 
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JT 

NX 

DJ 
FD 

FV 


UC 

IK 
ZT 
RU 

NU 

nu 

AJ 
JO 

TG 

RM 
KD 

GS 
UI 
OK 

in 

HT 
QL 

PT 
HF 
OF 

EX 
XB 


UZ 


NK 


GE 

nx 

HP 

CO 
AH 

ZR 
AC 


DA 
16 
DA 

,13 
DA 

0  I 

e  p 

J=C 

e  p 
>=c 
0  p 

CHR 
0  I 

0  p 

188 
0  I 
81 
0  P 


450 

,20 

460 

4 

470 

480 

0,6 

490 

36, 

500 

255 

510 

100 

181 

188 

102 

297 

103 

0J  = 

110 

111 

88, 

112 

tl2 

113 

120 

S  =  " 

121 

122 

123 

S;  : 

124 

125 

126 

int 

127 

128 

129 

150 
200 
des 
ic  s 
201 
ati 
202 
on 
2,1 
203 
•  ■  :  7 

res 
204 
205 
206 
:  ? 

2070 
2080 
S  cQl  : 
2090 
2100 


DATA  6,152,96,41.127,201.96,176.13 

.176.3,2 


DATA  32,144.6.56.233.32.56, 

DATA  105.64.96.0.0.0.0.0.0 
DATA  1.133.203.160,7,138,4 


TA  165,203,5,206; 


CLO 

0  ? 


TA 

3, 

TA 

F 

RG 

HR 

RG 

HR 

RG 

$  c 

F 

RG 

J  = 

F 

PR 

RG 

HS 

IT 

F 

LO 
SE 


24 
206 

27 
PR< 

s  CI 

S  t2 
S(2 
S  C7 
SC3 
6> 
PH< 
$C1 
CHR 
UPS 
G$c 
SC3 
D 
OH 
PR 
RI- 
SE 

«1 
:  "3  : 

PR< 
;  ?   •■ 

'cha 

"60 

T 


0,165,206.44 

.96 

.76.8.0.4. -1 

>2  THEN  1100 

06,ie63=CHR$ 

31> 

81,281J=CHRS 

01 

15,319J="5O0 


>3  THE 
06.106 
$  CNUnC 
IDE  TH 
297.29 
14.313 
EPSON 
EXE" 
3  THEN 
?  :  ?  ! 

tH  iOPE 
:POKE 

>3  THE 
NOTE 
charac 
nse  1  i 
UP5ID 
hen  RU 


N  1200 
i-CHHS 
ODi 

EN  PRG 

7J=CHR 

+COUNT 

EXE"! 

FNS 
?  " 

N  «1.8 
752.0 

DO 
N  1500 
!    If 
ters  u 
ne  60 

E=l"!? 

N  this 


133.206 
.186,6. 

:REri  C. 
C23U  !P 

C128>  •■  P 

08":PRG 

!REM  OT 
CNUMCOD 


.169 
9,204.24 

.6,203.1 

16.4,73. 

ITOH 
RG$(ie8. 

RGSC297. 

SC320.32 

HER 

J  sPRGScl 


Sc2ei.281>=CHRS 

S  t70J 

>=AS 

IF  PR=2 


D:OTHER 

C  r  e  a  -t  i  n 

O.FNS : 

NE!" 

this  ha 
pside  d 
to!"  :? 


THEN  FN 

.EXE" 
g  ";FNS 
?  »1:PRG 


nd 1 er  pr 
own.  " 


prosran  again. 


0  END 

0   ?   "»i"  !  ?   !  ? 

to  put"!?  "V 

node" 
0  ?  :?  "   cVo 
on"  !  ?  "in  you 

0   ?   !?   "    TtfP 

e  at  a  tine- 
0  ?  !?  "EXAMP 

"?8"!?   "?0"! 

s  the  SPACEBA 
0  POKE  764.25 
0  IF  PEEKC764 
0  POKE  764,25 


! ?  "     Tmpb  in  the  c  o 
OUR  printer  into  graph 

u  can  find  this  inforn 
r  printer  nanuaii" 
e  in  the  decinai  codes 
End  with  -1"!P0KE  75 

LE!"!?  !?  "?27":?  "?76 
?  ••?-l"  :?!?:?  "     tp 

R  to  begin*"; 

5 

>  033  THEN  2050 

5:P0KE  752,0iCOUNT=0! ? 


INPUT  0:IF 
CQUNT=COUNT 
GOTO  2070 
NUnC0D=:224  +  C0UNT 
RETURN 


a<0    THEN    2090 

+  1!  AS (COUNT, COUNT) =CHR 


LISTING  4 


eieo 

0102 
0104 
Olio 
0120 
0140 
0150 
0160 
0170 
0190 
0210 
0220 
0230 
0240 
0260 
0280 
0290 
0300 
0320 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 

32 


;  nODIFIED  PRINTER  HANDLER 

;  BV  BOB  MARTIN 

:   CC11989.  ANTIC  PUBLISHING 

;INITIALIZATION  ROUTINE  FOR 

;  SPECIAL  PRINTER  HANDLER 

HATABS  =  $031A 

ZPAGEl  =  SCD 

K=   $0600 
;PRINTER  HANDLER  TABLE 
NPTBL 

.MORD  0.0.0 
NPTBLPC 

■uoRD  e.e.e.0.0 

;OLD  PRINTER  PUT  BVTE 
OLDPNT 

JMP  OLDPNT 

ilNITIALIZE  NEU  PRINTER  HANDLER 
INSERT 

LDX  «t0        :FIND  P!  HANDLER 
PLOOP 

LDA  HATABS. X 

CMP  «'P 

BEH  PFND 

INX 

INX 

INX 

BNE  PLOOP 


0450 

0460 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1315 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 


;nOUE  P:  HANDLER  TABLE  TO  NEU 

;  LOCATION 

PFND 

LDA  HATABS+1,X 

5TA  ZPAGEl 

LDA  HfiTABS+2,X 

STA  ZPAGEl+1 

LDA  «tNPTBL&SFF 

STA  HATABS+1,X 

LDA  WNPTBL^SOIOO 

STA  HATABS+2.X 

LDV  «15 
PMULP 

LDA  cZPfiGElJ.V 

STA  NPTBL. Y 

DEV 

BPL  PMWLP 

; STORE  OLD  PUT  BYTE  ADDRESS  THEN 
;  CHANGE  PUT  BVTE  ADDRESS  TO 
;  POINT  TO  MODIFIED  PUT  BYTE 
;  ROUTINE 

CLC 

LDA  NPTBLPC 

ADC  Ml 

STA  OLDPNT+1 

LDA  NPTBLPC+1 

ADC  »0 

STA  OLDPNT+2 

LDA  tttNPUTCH-li&SFF 

STA  NPTBLPC 

LDA  »cNPUTCH-13/S0100 

STA  NPTBLPC+1 

RTS 

«=   S02E2 
-UORD  INSERT 

;MODIFIED  PRINTER  HANDLER 

; INTERCEPTS  THE  PRINTER  HANDLER 
;  AND  SENDS  UNPRINTABLE 
;  CHARACTERS  AS  DOT  GRAPHICS 
;  OTHER  CHARACTERS  ARE  SENT  AS 
:  NORMAL  MODE  CHARACTERS 

;POKE  1791  cS6FF>  WITH  A  "0" 
;  TO  ENABLE.   ANY  OTHER  UALUE 
;  UILL  DISABLE  THIS  OPTION. 

K=   INSERT 

JUMP  TO  OLD  PRINTER  PUT  BVTE 

PNTPUT 

LDA  HA 
PNTPUT2 

LDV  HV 

LDX  HX 

JSR  OLDPNT 

TYA 

BMI  ERROR 

STX  HX 

STY  RV 

RTS 
ERROR 

PLA 

PLA 

RTS 

;MODIFIED  PRINTER  PUT  BVTE 
NPUTCH 

STA  HA 

STY  HY 

STX  HX 

LDX  «06FF 

BEQ  PNTOK 

LDX  S06FE 

BNE  CRGR 

CMP  «»155 

BEB  PNTOK 
CRGR 

CMP  «96 

BEQ  NOPNT 

CMP  «»32 

BCC  NOPNT 

CMP  «123 

BCS  NOPNT 
PNTOK 

JSR  PNTPUT 

RTS 

;HANDLER  FOR  UNPRINTABLE 


CK  FOR 

UNPRINTABLE 

CHARACTERS 


ANTIC  SOFTWARE  LIBRARY 


1420 
1430 
1448 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1635 
1640 
1660 
1660 
1670 
1680 
1690 
1780 
1710 
1730 
1748 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1848 
1858 
1860 
1870 
1880 
1890 
1900 
1910 
1928 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2008 
2818 
2020 


GET  INTERNAL 
CODE  »  AND 
CALC  ADDR 
OF  FONT 


;  CHARACTERS 

NOPNT 

LOX  tt0 
GRLOOP 

STX  HBIT 

LDA  GRCODE.X 

J5R  PNTPUT2 

LDX  HBIT 

INX 

CPX  CODELN 

BCC  GRLOOP 

LDA  HA 

JSR  ASC2SCN 

STft  sec 

LDA  »0 

STA  ZPAGEl 

STA  ZPAGEl+1 

LDX  «2 
ALOOP 

CLC 

ROL  sec 

ROL  ZPAGEl 

DEX 

BPL  ALOOP 

CLC 

LDA  OSE8 

ADC  ZPAGEl 

STA  ZPAGEl 

LDX  «»S80 

STX  HBIT 
BLOOP 

JSR  SLICE 

JSR  PNTPUT2 

LDA  »0 

STA  ZPAGEl+1 

L5R  HBIT 

LDX  HBIT 

BNE  BLOOP 

LDX  RX 

LDV  RY 

TYA 

RTS 

icONUERT    ASCII    TO    DISPLAY 
;     tIEflORV    VALUE 

ASC2SCN 

AND  «S7F 

CMP  «96 

BCS  OUT 

CMP  ««32 

BCC  GRCHR 

SEC 

SBC  032 

SEC 

BCS  OUT 
GRCHR 


;CALC  THE  8 
;BYTE5 


2038 
2040 
2050 
2060 
2870 
2075 
2088 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2228 
2230 
2240 
2250 
2268 
2278 
2280 
2298 
2388 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2388 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2538 
2540 
2550 
2568 
2570 
2580 
2590 
2680 
2610 


OUT 

HBIT 

HA 
HY 
HX 
RX 
HY 


CLC 

ADC  064 

RTS 

BYTE  0 

BYTE  0 

BYTE  0 

BYTE  0 

BYTE  e 

BYTE  0 


calculates  the 
:  from  the  chara 

Iaddress  of  char 
:  in  $cc  &   zpage 

ioiT  TO  BE  SENT 
:  IN  X  REGISTER 

iRESULTING  "SLIC 
:  RETURNED  IN  A 
;  »«CE 


UERTICAL-BYTE 
CTER  FONT 

ACTER 
1 

TO  PRINTER 


ED"  BYTE  IS 
AND  HELD  IN 


SLICE 

LDA 
STA 
LDY 

LOOP 

TXA 
AND 
BEQ 
LDA 
ORA 
STA 

NOTSET 
ASL 
DEV 
BPL 
LDA 
BIT 
BPL 
EOR 
STA 

NOTINU 
RTS 


tt$01 

SCB 
use? 


;C.ITOH  LDA  o$80 


cSCCJ , V 

NOTSET 

$CB 

ZPAGEl+1 

ZPAGEl+1 

SCO       i 

LOOP 

ZPAGEl+1 

HA        i 

NOTINU 

»*SFF 

ZPAGEl+1 


iCITOH  LSR  SCB 


CK  FOR  INUID 


;PUT  THE  CONTROL 
;  YOUR  PRINTER  T 
;  DOT  GRAPHICS  B 

ic.ITOH  CONTROL 
;  GRCODE  .BYTE  2 

GRCODE  .BYTE  27, 

CODELN  .BYTE  COD 

.END 


CODE  TO  CAUSE 
0  ACCEPT  8 
VTES  HERE 

CODE 

7 , "soeoa" 

76,8,0 
ELN-GRCODE 


Total  control  over  your  settings 


AUTORUN  Selector 


Article  on  page  7 


LISTING  1 


Don't  type  the, 
TYPO  II  Codes! 


^ 


UN 
XM 
AD 
TH 
UX 
YN 

PP 

5U 
UJ 

HX 
OR 


BU 


10 

20 

30 

40 

50 

60 

+  B 

70 

0 

80 

90 

:0 

10 

11 

41 

,4 

12 

.2 

JUNE  1989 


REM 
REM 
REM 
DIM 
"J  ■• 

FOR 
YTE« 

IF 
130 

TRA 

? 

PEN 

0  CL 

0  DA 

,21  , 

1 

0  DA 

26,2 


AUTO 
UY  J 
tc  J  1 

OS  £3 

«itH*Ch 

1  =  1 
I  :  AS  c 
TOTAL 

P  90 
*Crea 
«1,  8, 
OSE  » 
TA  25 
128,  1 

TA  2, 
,227, 


RUN 
ASON 
989, 
7> 

ec  Ki 
TO  3 
I,  I> 
054 


SELECTOR 
STRAUTMAN^C  JACKSON 
ANTIC  PUBLISHING  INC 

ns  Data  ...'•!  TRAP  130 
7!READ  BYTE ! TOTAL=TOTAL 
=  CHRS tBYTEJ  sNEXT  I 
579  THEN  POKE  195,0!GOT 


ting. . .SELECT.EXE" iCLOSE  «1 
0,"D:SELECT .EXE" !?  »1;AS; 
l:  END 

5, 255, e, 128, 24, 128, 165, 10,  1 
65, 11, 141, 22, 128. 173, 31, 208 

208, 3, 108, 21, 128, 96, 0,0, 0,8 
2,0,128 


FI 
DB 
PU 


130  IF  PEEKtl95>=0  THEN  ? 
error  in  the  data!!":END 
140  IF  PEEKC195J=6  THEN  ? 
a!  ! ":END 
150  ?  "Error  ";PEEKcl95> 


'There  is  an 
■Missing  Dat 


LISTING  2 


0100  :AUTORUN  PICKER 

0110  ;BY  J  .STRAUTMAN^C . JACKSON 

0120  ;tcJ1989,  ANTIC  POBLISHING  INC 

8130  CONSOL  =  SDOIF   .Console  Keus 

0148  DOSUEC  =  SOA      ;  Load  DUP-SYS 

0150       *=   S80O0 

0160  START 

0170       LDA  DOSUEC   ;Grab  current 


continued  on  next  page 
33 


0180 

STfl 

UECTOR 

6190 

LDfl 

DOSUEC+1 

0200 

STfl 

UECTOH+1 

0210 

LDA 

CONSUL 

0220 

AND 

««S02 

0230 

BNE 

CONT 

8240 

JMP 

(UECTORi 

DOS  vector 


iCONSOL  Key 
lis  it  SELECT? 

;Load  DUP.SYS 


0250 

com  RT5 

0260 

UECTOR 

0270 

.UORD  6.0 

0280 

*(-       S02E2 

0290 

.UORD  START 

0300 

.END 

;Load  AUTORUN 


Fast  multi-file  text  finder 

Locator 


Article  on  page  5 


LISTING  1 


Don't  type  the, 
TYPO  II  Codes! 


EiZ 
JR 
AD 
CH 


KI 
RO 

EM 


US 
HA 
GU 


RN 
UA 

XJ 

AT 
ES 

RN 
BU 


KE 

GN 
5E 
FJ 
RK 
PO 
CD 

CT 

OZ 
PL 
DR 

UP 
NB 
SO 
XC 
UU 


ZN 

UT 

UA 
PR 
SX 

NV 
ZH 
OA 

BC 
UU 

JP 

FK 

34 


10  R 

20  R 

30  R 

100 

RCH$ 

0088 

189 

110 

0.18 

126 

DLI 
TOR 
130 
;  :IN 
148 
or  ! 
150 
--NJ  ! 
ND  C 
160 
165 
NcrtA 
170 
RS>  : 
188 
200 
10.1 
210 
220 
FNS  : 
1>=F 
230 
iscl 
235 
248 
250 
260 
300 
310 
FR.F 
320 
.  IJ 
330 
340 
350 


EH    LOCATOR 

Eh    JEFFREY    A.     SUMMERS.     MD 

EM     cc>1989.     ANTIC    PUBLISHING    INC 

DIM    FNSC20>.FN1SC26».MASK5C20>.SEA 

C5  0> .UINSTRS  c 14 3>, CASES CIJ.BUFRSCI 

> 

GOSUB  10800: FOUND=0 

CLOSE  *«l!OPEN  «1.12.8."E:"!P0KE  71 


DL 
ST 

PO 
PU 
PO 

PO 

AS 

IF 

PT 

SK 

SL 

BU 

5E 

TR 

8 

CL 

TR 

NE 

N$ 

FO 

.  I 

NE 

FN 

CL 

? 

FL 
IF 
LE 
P  = 


I5T=PEEKt5  68>+256«PE 
♦3.71!P0KE  DLI5T+6.6 

SITION  7.7!?  "Files 
T  »1. MASKS 

SITION  7.9:?  "String 
:INPUT  Ml.SEARCHS 
SITION  7.12:?  "Case 
;  :INPUT  ««1,CASES:IF 
ES<>"N"  THEN  150 

MASKS=""  THEN  MASKS 
R=USR(ADRCUINSTR$>,A 

SJ . ADRt > .1.2» 

EN=LENCSEARCHS> : UINS 
FR^ADRcBUFRSi :BUFR$t 
ARCH=ADRC5EARCHS> 
AP  1000 :FPTR=l:GRAPH 


EKcseii :POKE 
?  "     LOCA 

to  search:  " 

to  search  f 

sensitive  cV 
CASES<>"V"  A 

=  "D  :  * • *" 
DRcMASKSl .LE 

TR=ADRcUINST 
10000>="  •■ 

ICS     0:POKE     7 


TU 

XO 
AX 
DN 

LISTING  2 


OSE 
AP  6 
XT  I 
C3.1 
R  1  = 
>  <  >" 
XT  I 
IS  CI 
OSE 
"CHE 
EN  =  U 
CAS 
N> 
USRC 


«2:0PEN  «2.7. 0.MfiSKS 
00:FOR  1=1  TO  FPTR:INPUT  «2, 
:FN1S=MASKS Cl.PTRJ :FN1SCPTR+ 
0>  !FPTR  =  FPTR  +  1 :CL05E  «2 
LENCFNISJ  TO  1  STEP  -1:IF  FN 
•■  THEN  POP  :GOTO  240 

+  !>:::  "."!FN1SCI  +  2>=FNSC11.13J 

tt3:0PEN  «3.4.0.FN1S 

CKING  ";FN1S 

SRCINP.3.BUFR.18880> 

ES<>"Y"  THEN  D=USRtMAKEUP,BU 

UINSTR.BUFR.FLEN. SEARCH. SLEN 


IF  POO  THEN  408 

IF  FLENO10000  THEN  500 

BUFRStli=BUFRSc9900J!BUFRSti000OJ: 


36 
37 
40 
41 
41 
FO 
I» 
42 
nt 
43 
:C 
44 
45 
46 
.P 
47 
50 
60 


0  F 
0  G 
0  B 
0  E 
5  ? 
R  I 
;  :N 
0  P 
inu 
8  C 
LOS 
0  I 
0  I 
0  P 
+  1J 
8  G 
8  C 
8  I 


LEN=USRCINP.3.BUFR+100.9900>+10  0 

OTO  318 

EGIN=P-18:IF  BEGIN<1  THEN  BEGIN=1 

NN=P+19!IF  ENN>FLEN  THEN  ENN=FLEN 
"Found  in  file  ";FN1S;"  "  •■ 
BEGIN  TO  ENN:?  CHRS c27) ; BUFRS cl. 

EXT  I:F0UND=1 

OKE     752.1:?     :?     "Klext     file    r=(x  i  t    Wo 

e":POKE    752.8 

LOSE  tt5:0PEN  »»5  .  4  .  8  .  "K  :  "  :  GET  «5  .  X 

E  «»5:IF  X  =  78  THEN  588 

F  X=69  THEN  688 

F  X067  THEN  438 

=USR cUINSTR.BUFR.FLEN.se ARCH. SLEN 


OTO  338 

LOSE  »3!G0T0  218 

F   NOT  FOUND  THEN  ? 


'Not  Found 


610  7  "Done.":END 

1888  ?  :?  "Illegal  directors*  nane":GOT 

0  2808 

2888  FOR  1  =  1  TO  788:NEXT  I:CL05E  «tl  :  CL 

OSE  **2:G0T0  118 

18888    INP  =  ADR  C"hhhUklKBaaSDBeihDEahaD?lhD 


if'haHm  UHBHfflnnBimaniie"! 

10818     UINSTRScl.71l="hhn[!lha[UhaShaDhnnh 

anhhCirahnmhaQSQDBsao^mHwcicrii^EaQerantaEap^enijnn 
'sm\e.Q7«RWL\emaLmmmn" 

18028    UINSTRS  C72.  143J="[Jimfa(a    UlLqraHDDHmBraiiJ 

rvfwmsm  i  "xasswn  i  nansBS  ■  • 

18830  nAKEUP  =  ADR  c"hhanjhnnhn[!ihaHieanAei>jn» 

Q[Qe[!iaaBBODna  ai^BOs  i  teanEam  i  ffiniiiiiiar;jnQiimEiriita»i 
an  naeBC"! 

18040  RETURN 


RV 
JR 
GD 
5K 

EU 

IJ 
PR 

UU 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LU 

BQ 
YC 

DM 

BK 

MM 


CM 

UO 

AR 
PU 
AL 

KD 
EU 


KT 


OS 


FP 


OT 


10 
20 
30 
35 
LIS 
40 
OTH 
50 
68 
EEK 
70 
AME 
80 
5 

90 
58> 
108 
110 
TIC 
120 
130 
148 
se 
158 
C  =  l 
160 
170 
2.2 
180 
wn  • 
190 
1  :N 
200 
MAN 
E  !  " 
210 
LI 
220 
sse 
238 
248 
250 

108 
101 
618 
170 
102 
041 
873 
103 
840 
133 
104 
841 
801 
185 


REM  LO 
REM  JE 
REM  cc 
HEM  CC 
TING  1 
REM  CL 
ER  BAS 
REM  CH 
DIM  FN 
C10592 
FNS="D 
OF  TH 

?  "srai 


CATOR.  L 
FFREY  A. 
>  1985.1 
REATES  L 
.  LOCATE 
INE5  10- 
IC  LOADE 
ANGE  LIN 
SC20> .TE 
I !POKE  1 
: LINES. L 
E  DISK  F 
s k  or  rija 


ISTING  2 

SUMMERS.  MD 
988  ANTIC  PUBLISHING 
INES  10000-10038  FOR 
.BAS> 

258  MAY  BE  USED  UITH 
R5  IN  THIS  ISSUE. 
E  78  AS  NECESSARY. » 
MPSC20>.ARSC93> :DPL=P 
8592.255 

5T"!REM  THIS  IS  THE  N 
ILE  TO  BE  CREATED 
ssette?"; :POKE  764.25 


IF   NOT  CPEEKC764>=18  OR  PEEKc764>= 

THEN  98 

IF  PEEKC764J=18  THEN  FNS="C:" 

POKE  764.255: GRAPHICS  0:?  "  AN 
•S  GENERIC  BASIC  LOADER" 

?  ."BY  CHARLES  JACKSON" 

POKE  10592. DPL:TRAP  268 

?  !?  :?  "Creating  ";FNS:?  "...Plea 
Stand  by." 

RESTORE  :READ  LN:LM=LN:DIM  flScLNi: 


ARS 

FOR 
55 

LM  = 
.  .T- 

AS  c 
EXT 

IF 
V  DA 
:  END 

IF 
NES! 

IF 
tte. 

OPE 

POK 

CLO 


: R 

X  =  l 

LM-l: 
";INT 
C.C»  = 
X  :GOT 
PEEKc 
TA  LI 

CCLN  + 
"  :  ?  " 
FNS  =  " 
pres 
N  wi. 
E  766 
SE  *»1 


EAD  ARS 
TO  LENCARS 

POSITION  1 
CLM''16>  ;"> 
CHRScUALcA 

0  160 

195>=5  THE 
NES!":?  "C 

1  THEN  ?  : 
CANNOT  CRE 
C:"  THEN  ? 
S  [RETURN! 
8.0.FNS 
.1:?  ttl.flS 
:GRAPHICS 


>  STEP  3:P0KE  75 

0.10:?  "CCountdo 

RScX. X+2>> J !C=C+ 

N  ?  !?  :?  "QTOO 
ANNOT  CREATE  FIL 

?  "QTOO  FEU  DATA 
ATE  FILE!":END 
:?  "  Prepare  ca 


; :POKE  766.0 

0 :  ?  "BHaiiiinaiBsar^mi 


0  DAT 
0  DAT 
65068 
16900 
0  DAT 
57872 
88313 
8  DAT 
82836 
21518 
0  DAT 
33226 
13323 
6  DAT 


A  339 
A  849 
08284 
71578 
A  883 
88383 
32138 
A  848 
84084 
41332 
A  133 
10413 
01652 
A  024 


84884 
80341 
66883 
10415 
20862 
96834 
84884 
90440 
14104 
22410 
32311 
31233 
16523 


804804 
041041 
104157 
706888 
281890 
841155 
984803 
550490 
133225 
413321 
841332 
880133 
010121 


80320 

04018 

869 

31841 

72883 

849 

28878 

41861 

104 

71041 

38856 

231 

41332 


738788888 
818810018 

578738831 
133212189 

730780830 
034104104 

332161641 
165230233 

321652311 


ANTIC  SOFTWARE  LIBRARY 


UF 
CH 
QS 


8121513323382416  5214101224133228165215 
181225133229160000177034155  G5 

1060  DflTft  0498480480500480320870730780 
83884082036040055050044  04  9052051041861 
034232209216288032288196226  DE 

1070  DATA  2882451652320562292141332121 
6  5233  229215133213165212824185  001133212 
165213105000133213896165232  NB 

1080  DATA  1972282880131652331972292080 
07169808133212133213896165232024185881 


13  3232165233105008133233024 

1090  DATA  1441810341550498488480510480 

32077065075869085080061865068082  04  00  34 

104104133213104133212104133 

1100  DATA  2151041332141652120241012141 

33216165213101215133217160000177212201 

097016024165212024105081133 

1110  DATA  2121652131858081332131972172 

0823316  521219721620822709605623383214  5 

2128  24144224  8  34  841155 


Print  Shop  Graphics  that  move 


Icon  Animation  System 


Article  on  page  15 


LISTING  1 


Don't  type  the 
TYPO  II  Codes! 


C^ 


L2 

BU 
HM 
UU 

OH 
EN 

nu 

DJ 
QA 

vx 


xu 

GI 
KK 

6H 

MT 

DU 

5T 

UL 

KO 

HO 

XK 
UU 

XO 

MJ 

UU 

X5 
PP 
RI 
IJ 

NL 
Fl 

UU 

US 
DU 
SD 

EH 

UI 

ZU 
FN 


100 


HEn  ICON  ANIMATION  SVSTEn. 

LISTING  1,  THE  ANIMATOR 

REM  BY  JIM  JOHNSON 

REM  CC11989  ANTIC  PUBLISHING  INC ■ 

C0=8:Cl=l:C2-2:C3=3!C4=4!C5=5:C6=6 

7!C8=8:C9=9:C20=28:MAX=C28+C5 

MUDE=C6:OFF=4  0088:WAIT=18 

DIM    FILENAMESC20J ,KEYSCC3J 

DIM    BS C128J ,GS C616> ,G2S t616«MAXJ 

DIM    SEUS  C101>  .SCRIPTS  H8»»18> 

SRADR  =  ADRc"h  hUhlClhHJlff  hH[3)!lhliiK?1h  hBlEfflh 

hDEiRii[i»'i  siitBja^JffiaiKBaianQEiamamBmsaus"  > 

178    PICT  =  ADRC"hhCinha[ahEl[i^lha[ilhhfll[ilhhQhhaQ 

■■J 

188    BS="»" :B$cl28>=B$:B$cC2i=BS:BADR=A 

DRCB$> 

198     G$  =  "M"  :GSc616>=GSiiGScC2J=GS 

280    IUCB  =  832  +  16:ADRHI  =  INTtADRcG2«J>'256 

J  :  ADRLD  =  ADR(G2$> -ADRHlM25e 

260    GUSUB     318O0:TRAP    OFF : GOSUB    163e:P0 

5ITI0N    C2,C3 


103 

106 

110 

!  C7: 

120 

130 

140 

IbO 

160 


270    ? 
N    FILE 
280    ? 
FILE"! 
290    ? 
FILE": 
308    ? 
L^Hf" 
310    ? 

!  "7 

320 

338 

340 

Y 

350 

«C1 

360 


BHH" ! ?  ' 
:  ?     ••        SSK' 

fflHtil"  :  ?  ' 
flH?J" 

ansj" :  ?  ' 

»Hffl" 

HBtiJ"  :  ?  ' 


ffiHW 


r,.. 


\im\\  CREATE    ANIMATIO 

HI    [II  LOAD    ANIMATION 

m    [II  SAUE    ANIMATION 

[II    [W  SEQUENCER":?    " 

ir    Oil  UIEM    ANIMATION" 

[T    m  SCRIPTER":?    " 


GOSUB  1680 
0LDX=C5:0LDY=C4!CURX=0LDX:CURV=0LD 


CLOSE 

KEY 

IF  KEY 


»Cl:OPEN  «C1,C4.C0, "K: 


GET 


CURY>C4  THEN  CURY=CU 


THEN  CURY=CU 


HY^U3 

380  IF 

390 

488 

418 

420 

430 

440 

60: 


IF 
IF 
IF 
IF 
IF 
IF 
RUN 


THEN 
THEM 

THEN 
THEN 
THEN 
THEN 


478 
1468 

1330 
1170 
960 
TRAP 


45  AND 
HY-C3:GDTn  450 
370  IF  KEY=61  AND  CURY<19 
GU10  450 

KLY=155  AND  CURY=C4 

KtY=155  AND  CURY=C7 

5EUS=""  THEN  440 

KEY=155  AND  CURY=ie 

KEY=155  AND  CURY=13 

KEY=155  AND  CUHY=16 

KEY=155  AND  CURY=19 

"D: SCRIPTER. BAS" 
450  POSITION  OLDX.OLDV:?  " 

CUHX.CURY:?  "■" ; = OLDX=CURX 
460  GUTO  350 

470  GOSUD  1630:G05UB  ie80:POKE  752, CO 
480  ?  :?  "   How  nans*  pictures  do  uou  t 
ish  to":?  •■   load  <Max  inuM  =  "  ;  MAX  ;  ">  ";  ! 
INPUT  KEYS:IF  KEYS=""  THEN  260 

490  FRAMES  =  UALCKEYS>:SEQ$  = FOR 

TO  FRAMES: SEQS cl, IJ=CHRSCIJ !NEXT 
FRAMES>MAX  THEN  FRAMES=MAX 

500     POKE     752, CI  :POSITION     C4,22:?     "INSE 
RT     GRAPHICS    DISK,     PRESS    [SfaiimUffiJ"  :  C L 0 S E 
ttCl:OPEN    «C1,C4.C0, "K: ": GET     »C1.KEY 
510     X=U5RtSRADR,BADR, 361, Cl,C3l : IF     BS c 
CI.  15J="PRINT     SHOP:CLK!"     THEN     530 

520  POSITION  C7,C8:?  "»  wsmm^'simmmmiWii 

WdUMiliWIil    »C3";:F0R     I  =  C1     TO     308:  NEXT     IiGO 


•;  :P0SITI0N 
0LDY=CUHY 


I  =  C1 
I:IF 


I  T 
XZ  5 
2J  5 


DU 
C5 
KU 

TN 


XZ 
NI 

DX 

XR 


UK 

BL 
PF 
SU 
MF 
UL 
20 
VJ 
ZT 

HT 
KJ 

DO 

5K 
XD 

II 
PQ 
FB 
IN 
«F 

EM 


JJ 


UZ 
KN 
DH 
ML 


SO 


FI 
AQ 
AJ 
UC 


0  47 
30  G 
40  L 
256  + 
60  R 
70  I 
80  F 
ADR, 
90  F 
19.  X 
hen 
00  I 
10  5 
cl  +  1 
20  F 
DR,  B 
30  G 
SC  CB 
EXT 
40  X 
5,  5  7 
50  X 
60  X 
70  G 
80  1 
90  N 
50  R 
60  G 
70  L 
256  + 
88  F 
98  I 
8:G0 
000 

010 

020 

>255 

025 

030 

040 

058 

860 

«C1. 

870 

AIT  + 

AIT> 

088 

AIT- 

AIT> 

098 

NOT 
100 
HEN 
110 
DP  : 
120 
RX  +  C 
RX  !? 
138 
RX-C 
RX  :  ? 
140 
150 
168 
170 


0 

OS 

=  A 

C4 

EM 

CO 

OR 

SE 

OR 

+  1 

Po 

CO 

EC 

8, 

OR 

AD 

$  c 

$  c 

12 

=  U 

2j 

=  U 

=  U 

25 

F 

LX 

EM 

OS 

=  A 

C4 

OR 

F 

TO 

L  = 


UB  1 
DRCG 
+  C4» 

LOA 
N  =  C0 

SEC 
CTRl 

I  =  C 
9>  <> 
p  :P 
N  =  IC 
TR  =  A 
1  +  18 

12  = 
R,  SE 
I2  +  C 
127, 


690 

S> :5CRMEM=PEEKt88>+PEEKc89> 

28 

D  ICl 


TR1  = 
,  CI. 

0  TO 
"X" 

OP 

ON  +  C 
5CCB 

1  > 

CO  T 
CTR. 
1,  12 
127> 


:ONS 

362  TO  393:X=U5RCSRADR. 
C3J 

96  STEP  32:REM  If  BS tX 
And  BS cX+20. X+20J <>"x" 
Goto  578 
1 
Scl+17. 


0  378  5 
C1,C3> 
+126J=B 
>+256«A 


I+17>> 

TEP  12 

S  CCI.I 
SCtBSc 


+256«ASCCB 

6 :X=USRCSR 

26J  :SECTR  = 
128.128>> : 


SRtSR 
-QS  CC 
5RC5H 
SRcPI 
tCl  +  6 
ICON  = 
T  1  :N 

DISP 
UB  16 
DRCGS 
+  C4»2 

I  =  C1 
ASC  CS 

1020 
ADRCG 


ADR, 

1.  68 

ADR, 

CT,S 

16*c 

FRAM 

EXT 

LAY 

90 

J  :SC 

8 

TO 
EQ$c 


BADH,5ECTR,C1,C3J:GSC5 

> 

BADR,5ECTR1,C1,C3> 

CRMEM,L,11,52.C20> 

IC0N-C1J>=GS 

ES  THEN  970 

5ECTH1 

IMAGES 


RMEM=PEEKc88J+PEEKc89> 


LENCSE 
I.  U  J  = 


CO  THEr 


N  GOSUB  15 
2S>+616«cA5Cc5Eascl,lJj-Cl 


X=USRCPIC 
FOR  DELAY 

THEN  GOS 
NEXT  DELA 
IF  PEEKC7 
NEXT  I 
POKE  764 
CLOSE  MCI 
KEY 

IF  KEY=15 
Cl+C4«cUA 
901 

IF  KEY=15 
Cl-C4»cMA 
1O0»  :IF  U 
IF  KEY=15 

PAUSE 
IF  KEY=15 
1270 

IF  KEY=15 
GOTO  260 
IF  KEY=42 
7: POKE  65 

"■"; :OLD 
IF  KEY=43 
7:P0KE  65 

"■"; :OLD 
IF  PAUSE 
RETURN 
GOSUB  106 
REM  5E0UE 


52,C20i 
PEEKC764J 


T.SCRMEM. L,ll, 

=C1  TO  MAIT:IF 

UB  1060 

Y:POKE  77. CO 

6410255  THEN  GOSUB  1860 


255:G0T0  980 
:0PEN  ttCl.C4.C 

5  AND  CURX=C4 
IT>29»+C5«tHAI 

5    AND    CURX=11 
IT>30J -C5»tHAI 
AIKCO    THEN    UA 
5    AND    CURX=ia 

5  AND  CURX=25 

5  AND  CURX=32 

AND  CURX<32  T 
7,0LDX !?  "  "; : 
X=CURX 

AND  CURX>C4  T 
7. OLDX : ?  "  ";  : 
X=CURX 
THEN  1860 

0 
NCER 


0."K: 


GET 


THEN  UAIT= 
T>45»  +10«c 

THEN  UAIT= 
T>50» -10»c 
IT  =  C0 
THEN  PAUSE 

AND  PAUSE 

THEN  POP  : 

HEN  CURX=C 
POKE  657, C 

HEN  CURX=C 
POKE  657. C 


JUNE  1989 


continued  on  next  page 
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1188  GOSUB  163e:G0SUB  1660 

1198  ?  !?  "ENTER  •&•     TO  PftUSE  SEQUENCE 

1288  FRftME=Cl :5EaS= ? 

1210  ?  "FRflME  ««";FRflME;":aaua"; 

1228  INPUT  KEYS'IF  KEVS=""  fiND  5EQS="" 

THEN  SEa$  =  CHR$(Cl>  :GOTO  968 
1238  IF  KEyS=""  THEN  FRflME^FRfiME-Cl : GO 
TO  968 

1240  KEV=UftL CKEYSJ :IF  KEY<C8  OR  KEV>FR 
AMES  THEN  ?  "QEB" ;  :  GOTO  1210 
1250  5EQScFRAI1E,FRni1E»=CHRScKEVJ 
1268  FRftriE  =  FRfiME  +  Cl!lF  FRfll1E<181  THEN 
1218 

1265  FRftriE  =  FRflME-CliGOTa  968 
1270  REM  nOUANCE 

1280  I=I+Cl:IF  I>LENtSEUS»  THEN  I=C1 
1290  IF  ftSCc5EQS<I.I>»=C0  THEN  1280 
1300  L=ftDRcG2Sj+616»cft5CfSE0ScI,I>>-Cl 
> 

1310  X=U5RtPICT,5CRMEM.L.ll,52.C20J 
1320  GOTO  1060 

1325  REM  SftUE  SEQUENCE  FILE 
1330  GOSUB  1630:GOSUB  1680 : TRAP  3800 
1340  POSITION  C2,C3!?  "USE  FORMfiT =  "OE 
Ur FILENAME. EXT-" 

1350  POKE  752,C8iP0SITI0N  C2.C5:?  "FIL 
ENftME  TO  5ftUE?";:P0KE  764.255 
1360  ON  PEEKC764>=255  GOTO  1360:IF  PEE 
Kc764>=2e  THEN  CLOSE  «»C1:0PEN  »C1,C4.C 
0."K!":GET  «C1,KEV:G0T0  260 
1370  ?  "B";:INPUT  FILENfiMESiIF  FILENftM 
ES=""  THEN  GOSUB  2328:G0T0  1350 
1380  CLOSE  «»Cl:OPEN  «C1 ,  C8  ,  C0  ,  FILENflME 
S 
1390  5EQSiCLENcSEQSj+ClJ=CHRS<FRnME5>  :  ? 

*«C1 ;  SEQ$ 
1400  POKE  I0CB+C2.11 

1410  POKE  I0CB+C4,ADRL0:P0KE  I0CB+C5,A 
DRHI 

1420  NM=616»FRnMES!NMHI=INTcNM/256> : NM 
L0=NM-NMHI»256 

1430  POKE  I0CB+C8.NML0:P0KE  iaCB+C9.NM 
HI 

1440    X  =  USR  tftDRt"hhhiaLOr?l"J  .16J 
1450    CLOSE    »tCl:SEas  =  SEas  tCl.LENtSEQSJ - 
Cl>  :GOTO    260 

1455  REM  LOAD  SEQUENCE  FILE 
1460  GOSUB  1638:G0SUB  1680:TRAP  3000 
1470  POSITION  C2.C3:?  "USE  FORMAT:  -DE 
»•■  FILENAME.  EXT'"!SEQS  =  "" 

1480  POKE  752,C0!POSITION  C2.C5!?  "FIL 
ENAME  TO  LOAD?";:POKE  764.255 
1490  ON  PEEKC764>=255  GOTO  1490!lF  PEE 
Kt764>=28  THEN  CLOSE  t»Cl:OPEN  «»C1.C4,C 


0,"K! 

1500 
ESi 


GET  »tCl.KEV:GOTO  260 
?  "S)";:INPUT  FILENAMES'IF  FILENAM 
THEN  GOSUB  2320:GOTO  1480 
1510  CLOSE  ttCl:OPEN  «C1 .  C4  ,  C0  .  FILENAME 

1520  INPUT  »»Cl;5EaS!FRAME5  =  ASCcSEQScLE 

NcSEa$3.LENCSEa$>>>:5EQ$=SEQ$(Cl.LENcS 

EQSJ -CIJ 

1530  POKE  10CB+C2.C7 

1540  POKE  I0CB+C4. ADRLO:POKE  I0CB+C5.A 

DKHI 

1550  NM=616»FHAMES :NMHI=INTcNM/256> : NM 

L0-NM-NMHI»*256 

1560  POKE  I0CB+C8>NML0:P0KE  I0CB+C9,NM 

HI 

1570    X  =  U5RtADHc"hhhaLUtn">  .16» 

1580  CLOSE  «Cl:GOTO  960 

1590  REM  PAUSE 

1600  FUR  DELAV=C1  TO  100 

1610  IF  PEEKC7641 0255  THEN  GOSUB  1860 

1620  NEXT  DELAV^RETURN 

1630  REM  TITLE  SCREEN 

1648  GRAPHICS  C0:POKE  709.C0:POKE  718. 

C8:G0SUU  31808:POKE  752, CI 

1650   POSITION  CO. CO:?   "■riBmiiiBmmtiissDBmiii 

■(^E!]Snii]r:iBBBQBt-^[^[rI!ll^rk'1ffllair:IBQBH" 

1668  POSITION  CO.Cl:?  "■■■■■■■■■■■■■■■ 


1670  RETURN 

1680  FOR  I=C1  TO  ie:POKE  710,I:NEXT  I: 

RETURN 

1690  GRAPHICS  MODE:GOSUB  310e0:POKE  75 

2. CI :PAUSE=CO 

1700  POKE  708.C0>P0KE  7e9.C0:P0KE  710. 

C0:POKE  712, CO 

1710    COLOR    CUPLOT    30.C2:DRAUTO    121. C2 

:DRAUTO  121 . 57 : DRAUTO  30.57:DRAUTO  30. 


AB 

GG 

FU 

MS 

BF 

PU 

BL 
HP 

NX 

NU 
CO 
NO 

NK 

MI 

RS 
ZO 

NC 

AR 
OQ 

HA 
HV 

ZA 
JS 


C2 

1720  ? 

trISI" 

1730  ? 
lliEXIT 

1740  ? 

1750  0LDX=C4:0LDV=C1:CURX=0LDX!CURY=0L 

DV 

1760  POKE  656.CURV:P0KE  657.CURX:?  "■" 


»B5i         ffitT)5i         asa         ssB         a 

III    IJtSLOMiri    llFASTIll    UPAUSm    11ADU.1I 

HHHl  -fflBffl  asm  fflBW  ffl 


1770 
2,1: 
1780 
2320 
2340 
K=C0 
2350 
2360 
2370 
EN  G 
2380 
LOSE 
2390 
ILEN 
2400 
2410 
GSc 
7«cL 
2420 


FOR 
NEXT 
RETU 
REM 
GS  cc 
:  L  =  CO 
CL05 
INPU 
IF  F 
OSUB 
IF  F 
«C1 
G$  tl 
AMES: 
GOTO 
FOR 
17»CL 
+  1  +  14 
NEXT 


I  =  C1 
I:  RE 
RN 

DIRE 
1>=" 
:POK 
E  «C 
T  ««C 
ILEN 
2440 
ILEN 
GOTO 
7»K+ 
K=K+ 
236 

I=:C0 

+  I>  + 
>+Cl 

l!  ? 


TO  10:POKE  718,I:P0KE  71 
TURN 


CTO 

E  7 
1:0 
1,F 
AME 
:RE 
AME 

24 
CI, 
CI 
8 

TO 
CI, 
,17 

:? 


Ry 

G$cei6>= GSCC2>=GS: 

52. CI 

PEN  t»Cl.C6.C8."Dl:»».K" 

ILENAMES 

S CC4,11>="5H0P:CLK"  TH 

TURN 

$CC5,C8»="FHEE"  THEN  C 

10 

17»K+LENtFILENAMES> J=F 


13:P0SITI0N  C1,C7+I:? 
17*tL+I>+17> ; "  ";GS<1 
*«tL  +  I  +  14>+17> 

FILENAMES; " 


liJianrMiLiai-i 


2430  RETURN 

2440  POSITION  2,22:?  " 

i:i[il[»[i[illl<lil[ni]    wQ":  :  RETURN 

3000  REM  ERROR  MSG 

3010  CLOSE  «»Cl:POKE  703,C4:P0KE  752, CI 

:?"H":?"  w  ■sntiSBma[§[iti@ar^[tiri)ni[t« 

«         H"; 

3020  FOR  I=C1  TO  100:NEXT  I:POKE  703.2 

4:GQT0  260 

31000   BRK=usR  cADR  c"haBiaMhhMiHBisjapaeefiijmffi 

"> .Cl> :RETURN  : REM  DISABLES  BREAK  MHEN 
ARG  =  1 


LISTING  2 


ZR  100  REM  ICON  ANIMATION  SVSTEM. 
LISTING  2,  THE  SCRIPTER 
103  REM  BY  JIM  JOHNSON 

106  REM  cc>1989  ANTIC  PUBLISHING  INC 
110  C0=O:Cl=l:C2=2:C3=3:C4=4:C5=5:C6=6 
:C7=7:C8=8:C9=9:C2O=20:MAX=C20*C5 
120  MODE=C6:aFF=4OO00:UAIT=10 :GOSUB  31 
00e:G0SUU  30000 

130  DIM  FILENAMES<2e> .TEMPSC20J.DEUICE 
SC3> ,DPATH$c6i 

140  DIM  G$<616i ,G2$ C616«MAX> 
150  DIM  SEQS CIOIJ ,FILE*C2O»H0» ,SCRIPTC 
101>, CYCLE CIOJ.FNLCIOJ 

170   picT  =  ADR  ("hhciiihniahaiShnsihhnruhhQhhCKii 

E^[i]r!(ii>infari@ui!j[<neQ[»e[iia[aBLin[ieQ[iiieii:ia[iiRijnsi!J[ao»i 
"> 

190     GS="B":G« C616>=GS:GSC2>=GS 

260  TRAP  0FF:G0SUB  1500  :  POSITION  C2.C3 


DO 
HM 
UU 

KD 

EG 

NT 
OC 

YX 


HJ 
XZ 

OC 

TF 

II 

QZ 

UN 

UE 

CE 

UN 
UK 

XU 

OK 

UU 

ZC 
CR 
PY 


270    ?    "       fflHSl 

?   "     raesi" 

280     ?     "        BHB 

msw" 

290    ? 

BHffl 
300    ? 

ffll-lfl" 
310    ? 
HBffl" 
320    ? 


HHffl- 
BBB- 
BBSl' 


aesr 


■  I? 

'  :? 
I  :  ? 
:? 
'  :  ? 
■:? 


IliUlt  CREATE    SCRIPT": 

aj    [II  LOAD    SCRIPT":? 

II    II  SAWE    SCRIPT":? 

IT    11  RUN    SCRIPT":?    • 

[II    HI  SEQUENCER":?    " 


•  W    m    LOAD  SEQUENCES 
SSS" 
THEN  POSITION  5.19:? 
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TO  RAMDI5K":?  " 

330  IF  RAMDISK=1 

"X"  :? 

340  GOSUB  1550 

350  0LDX=C5:0LDY=C4:CURX=0LDX:CURY=0LD 

V 

360  CLOSE  ««Cl:0PEN  «C1 .  C4  .  CO  .  "K  :  "  :  GET 

«C1.KEY 

370  IF  KEY=45  AND  CURY>C4  THEN  CURY=CU 

RV-C3:G0f0  460 

380  IF  KEY=61  AND  CORY < 19- C3« CRAM0I5K= 

1>>  THEN  CURY=CURY+C3: GOTO  460 

390  IF  KEY=155  AND  CURY=C4  THEN  480 

400  IF  KEY=155  AND  CURY=C7  THEN  670 

410  IF  KEY  =  155  AND  CURY  =  10  AND  FILESO 

""  THEN  740 

ANTIC  SOFTWARE  LIBRARY 


NL  428 


438 
68: 
448 
468 
CU 
478 
488 
498 

see 

MDI 
518 
CI. 
528 


IF  KE 

THEN  8 
IF  KE 

RUN  "D 
IF  KE 
POSIT 

RX.CUR 
GOTO 
REM  C 
GOSUB 
DEUIC 

SKI :G0 
IF   N 

C4,C8, 
POSIT 

P05ITI 


Y  =  155  AND  CURV  =  13  AND  FILESO 

88 

V=155    AND    CURY-16    THEN    TRAP    2 

sflNIMfiTOH-BAS" 

V=155    AND    CURY=19     THEN    858 

ION    OLDX.OLDV:?    "    "iiPOSniON 

V:?    ••■•■;  :OLDX:::CURX  :OLDY  =  CURV 

368 

REATE  SCRIPT 

1588:60500  1558 
ES="D?:":DEUICESc2.2»=5TRStRA 
SUB  1788:G0SUB  1828 
OT  FILE  THEN  CLOSE  nCl:0PEN  « 
■•K:":GET  «C1,KEY:G0T0  268 
ION  17, C3:?  "SEOUENCE   CYCLES 

ON  17, C4!?  -nnnnnnnn  nnnnnn- 


53e  0LDX=C3:0 

CURY=OLDY!l=C 

54e  CLOSE  nci 

«»C1,KEY 

558  IF  KEY=45 

RY-C2:G0T0  59 

568  IF  KEY=61 

CURY=CURY+C2 
578  IF  KEY=15 
N  268 

588  IF  KEY=15 
+F1LE»C2  THEN 
598  POSITION 

CURX, CURY:? 
688  GOTO  548 
618  FILES=GS: 
/'C2J-C2J+C1.C 
'C2-C1> J 
628  SCRIPTtU 
,OLDY:?  ••  ••; 
638  POSITION 
ION  28.C4+I:? 
648  TRAP  638: 
IF  KEY<C8  OR 
658  CYCLEtI>= 
THEN  266 
668  POSITION 
678  REM  LOAD 
688  TRAP  3888 
2>=STR$cRAnDI 
:G05UB  1550 
690  POSITION 
: FILENAME . EXT 

695  POKE  752, 
NAME  TO  LOAD? 

696  ON  PEEKt? 
764>=28  THEN 
■■K:":GET  «C1. 
788  ?  ••*••;  !IN 
S-""  THEN  GOS 
718  CLOSE  «C1 

729  GET  «1,SE 
,  J:  SCRIPT  cljz: 
XT  I:INPUT  ««C 
725  FOR  J~C1 
»tJ-Cl>+Cl,C8 

727  IF  FILENA 
GOTO  727 

728  FNl.cJj=l! 

730  GOTO  268 
748  REM  5AUE 
758  TRAP  3868 
SITIDN  2,3:? 
E.  EXT-  •• 

755  POKE  752, 
NAME  TU  SAVE? 

756  ON  PEEKt7 
7641=28  THEN 
■■K:":GET  «C1, 
768  ?  "*<■•;  :IN 
S  =  "".  THEN  GOS 
778  CLOSE  «C1 
768  POT  WCI.S 
PT  cl>  :PUT  «C1 
EXT  I:?  «Ct;F 
798  GOTO  268 
888  REM  RUN  S 
810  FILENAMES 
$  (MnMDISKi  :G0 
820  FOR  J=C1 
1360 

830  run  K=C1 
T  K 

840  NEXT  J:PO 
858  REM  LOAD 


L0Y=C4+FILE»C2:CURX=0LDX! 

1 

:OPEN  »C1, C4, C8,"K:":GET 

AND  CURY>C4  THEN  CURY=CU 
8 

AND  CURY<C4+FILE»C2  THEN 
:GOTO  598 
5  AND  CURY=C4+FILE*C2  THE 

5  AND  CURY>C3  AND  CURY<C5 

618 
OLDX,OLDY!?  ••  ••;:POSITION 
"■••;  :OLDX  =  CURX:OLDY  =  CURY 

FILENAMES=FILEScC8»ccCURY 
8»f<CURY'C2>-C2»+FNLcCURY 

=  CURY-'C2-Cl:P05ITI0N  OLDX 

17,C4+I:?  FILENAMES:POSIT 

BBBBB";  :POKE  752, CB 
INPUT  KEY:POKE  752, CI:?  : 
KEY>iee  THEN  638 
KEY :5Efl=I : I=I+C1 :IF  1=11 

OLDX,OLDY:?  "■••;:GOTO  548 
SCRIPT 

:DEUICES="D?:":DEUICESC2, 
SKi:GOSUB  1788:G0SUU  1580 


C2,C3:?  "USE  FORMAT! 


DEU 


C8:P0SITI0N  C2,C5:?  "FILE 

";  :P0KE  764,255 

64J=255  GOTO  696:IF  PEEKC 

CLOSE  MCl:OPEN  t*Cl,C4,Ce. 

KEY:G0T0  268 

PUT  FILENAMES:IF  FILENAME 

UO  2328:G0T0  695 

:OPEN  «Cl,C4,Ce, FILENAMES 

U:FOR  I  =  C1  TO  SEO:GET  ttCl 

J:GET  «C1, J:CYCLECI>=J:NE 

1;FILES:CL0SE  «C1 

TO  5Ea:FILENAMES=FILEStC8 

»»CJ-C1>*C8>  :I  =  C8 

MEStI,I>="  "  THEN  I=I-Cl! 

NEXT  J 

SCRIPT 

:GOSUB  15e8:(;0SUB  1558:P0 

"USE  FORMAT:   •DE0:FILENAM 

Ce:POSITION  C2,C5:?  "FILE 

"; :PaKE  764,255 

641=255  GOTO  756:IF  PEEKt 

CLOSE  «tCl:OPEN  ttCl,C4,C8, 

KEY:GOTO  268 

PUT  FILENAMES: IF  FILENAME 

UB  2328:GaT0  755 

:OPEN  ««C1,C8.C8, FILENAMES 

Ea:FOH  I=C1  TO  SEa:J=5CRI 

, J:  J  =  CYCLEiI>  : PUT  »C1,J:N 

ILES:CLOSE  »»C1 

CRIPT 

="D?:": FILENAMES c2,2>=STR 

SUB  1560:GS=FILES 

TO  SEQ: I=SCRIPT CJ> :G05UB 

TO  CYCLECJJ :GOSUB  978:NEX 

KE  77,C8:G0T0  828 
RAMDISK 


HI) 
MP 

Ml) 

HZ 

XY 

SB 


SU 

OJ 

TX 

UY 

AM 

ZU 
UK 
ZT 

HT 
JR 

DO 

SK 
XD 

II 
HQ 
FB 
AO 
JJ 

EU 
JJ 

UZ 

lU 
DH 
UL 

KF 

FI 
AQ 
AJ 

IX 

It: 

LD 
2(: 
us 

so 

PY 
ZJ 
UG 
1M 
VG 

HE 

RR 
LY 

IB 

UU 

xs 

DI 

XG 
Ql 


GOSIIU    15U8:GUSUB    1558 
DEU:il:ES  =  "Dl:":GOSUB    1788! 


868 

870  DEU:il:ES  =  "Dl:":GOSUB  1788:G0SUB  182 

0 

880  IF   NOT  FILE  THEN  CLOSE  »C1:0PEN  « 

i:i  ,  C4,  i:8,  "K:  "  :  GET  «tCl ,  KE  Y  :  GOT  0  268 

898  IF  PEEK<53279>=3  THEN  910 

892  POKE  5439, ASC t"l"> :REM  LOAD  DUP.SY 

S  FROM  DRIVE  ttl 

895  DPATHSr:"D?:*t.»*":DPATHSc2,2J=5TRScH 

AMDISKJ:TRAP  918:CL05E  «C1:0PEN  ««C1,C4 

, C0, DPATHS 

900  XIO  33,nCl, C8,C8, DPATHS : CLOSE  «C1 : 

GOTO  895 

918  POSITION  21,11:?  "^LOADING*" : POSIT 

ION  C3, C4+FILEHC2 :?  "  "; 

928  FILENAMES=DEUICES :FOR  I=C1  TO  FILE 

:POSITION  C3,C2+I»C2:?  "■" ; 

938  FILENAMES="D1 :" :GOSUB  1368:G0SUU  1 

248 

948  POSITION  C3,C2+I»C2!?  "  ";:NEXT  I: 

GOTO  268 

950  REM  DISPLAY  IMAGES 

960  GOSUB  1568 

970  L=ADR<GS> : SCRMEM=PEEK c88i +PEEK (89> 

»«256  +  C4  +  C4*f20 

988  FOR  I=C1  TO  LENcSEQSi 

998  IF  A5CtSEascI,lJ>=C8  THEN  GOSUB  14 

78:G0T0  1848 

1088    L  =  ADRcG2Sj+616'«tASCtSEasci.lJ>-Cl 

> 

1818  X=USRCPICT, SCRMEM,L,11,52,C28> 

1828  FOR  DELAY=C1  TO  MAIT:1F  PEEKc764» 

0255  THEN  GOSUB  1868 

1825  NEXT  DELAY:POKE  77, C8 

1038  IF  PEEK<764J  0255  THEN  GOSUB  1868 

1848  NEXT  I 

1858  RETURN 

1868  CLOSE  «*Cl:OPEN  ««C1 ,  C4  ,  C8  ,  "K  :  "  :  GET 

«»C1,KEY  :POKE  764,255 
1878  IF  KEV  =  155  AND  CURX  =  C4  THEN  HAn  = 
HAIT+Cl+C4«tHAIT>29»*C5»CMAIT>45>+18»c 
HAIT>98> 

1888  IF  KEY=155  AND  CURX=11  THEN  UAIT= 
MAIT-Cl-C4»cMAIT>3eJ -C5» cMAIT >58> -18»t 
MAIT>18Bi:IF  UAIT<C8  THEN  UAIT=C8 
1090  IF  KEY=155  AND  CURX=18  THEN  PAUSE 
=  NOT  PAUSE 
1188  IF  KEY=155  AND  CURX=25  AND  PAUSE 

1178 

IF  KEV=15S  AND  CURX=32  THEN  POP  : 

GOTO  268 

IF  KEY=42  AND  CUHX<32  THEN  CUKX=C 


POKE  657, C 

THEN  CURX=CU 
: :POKE  657, CU 


THEN 

1118 

POP  ! 

1128 

URX+C7:P0KE  657, OLDX 

URX : ?  "■";  :OLDX  =  CURX 

1138  IF  KEY=43  AND  CURX>4 

RX-C7:P0KE  657, OLDX:?  "  "; 

RX :?  "■"; :OLDX=CURX 

1148  IF  PAUSE  THEN  1868 

RETURN 

GOSUB  1868 

REM  ADUANCE 

IF  SEQS=""  THEN  1868 

I-I+Cl:lF  I>LENtSEaS>  THEN  I=C1 

IF  ASCcSEascI,lJ J=C8  THEN  1180 

L=ADRcG2S»+616»tASCcSEascl,I»»-Cl 


1150 

1168 

1178 

1175 

1188 

1198 

1288 

> 

1210 

1228 

1230 

1240 

1250 

1260 


SCRMEM,L,ll,52,C2e> 


X=USRCP1CT. 

GOTO  1068 

GOSUB  1588 

REM  SAUE  SEOUENCE  FILE 

FILENAMES  CC2,C2 J ="8" 

CLOSE  «Cl:TRAP  1345:0PEN  «»C1,C8,C 
8, FILENAMES 
12  7  8  SEOS  CLEN(SE0S>+C1>=CHRSCFRAMES>  : ? 

SEOS 

I0CB=832+16:P0KE  IOCB+2,11 

ADRHI=INTCADRCG2S>/256>:ADRL0=ADR 
ADKHIM256 

POKE  I0CB+C4, ADRLO:POKE  I0CB+C5,A 


:NMHI  =  INTCNM^256J  :  NM 
POKE  I0CB+C9,NM 


JUNE  1989 


«C1  i 

1288 

1298 

CG2SJ 

1388 

URHI 

1318  NM=616MFRAMES! 
L0=NM-NMHI«256 
1328  POKE  I0CB+C8,NML0: 
HI 

1338  X  =  USR<ADRc"hhhQLUrri">  ,16J  :IF  cPEEK 
CI0CB  +  C9»»*256  +  PEEKCI0CB  +  C8J>  ONRED  THE 
N    1345 

1348  CLOSE  »Cl:SEas=:SEaScCl,LENcSEas>- 
Cl> : RETURN 

1345  TRAP  268:CL0SE  ttCl:OPEN  *»Cl,C4,Ce 
.FILENAMES: XIO  33 , «C1 , C8, CB , FILENAMES : 
CLOSE    ««Cl:GOTO    268  continued  on  next  page 
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ZR 
PP 
FM 


XY 
UX 


UH 

Li; 
IJ 
xc 

Vft 

PG 

ID 
SU 

VU 

JK 
FU 
OF 
DC 

KC 
NB 
EB 

XU 

LE 

AU 
ZB 

DU 

VZ 

ZO 


AS 
FU 
FK 
UH 
AU 
PK 


Bfl 
BG 
QO 
KD 
Btl 
Z2 
JS 

5P 


CM 
MC 

EU 
MM 


KE 


GB 
SU 
AP 
KL 

HU 


LP 


38 


1358  GOSUB  1588 

1368  REM  LOAD  SEQUENCE  FILE 

1378  FILENAME SCC4J=GSCC8»CI-C1J+C1,C 8* 

CI-CIJ+FNLCIJJ  !  FILENAMES  CC4  +  FNL  cl j  j  ='•  . 

SEQ" 

1388  TRAP  1465:CL05E  nCl:OPEN  «C1.C4.C 

8, FILENAMES 

1398  INPUT  «C1;SEQS jFHAMES-ASCcSEQScLE 

NtSEQS».LENtSEQS>>J:SEQS=5EQ«cCl-LENC5 

EOS> -Cl> 

1480  I0CB=832+16: POKE  I0CB+C2,C7 

1410  ADRHI=INTCADRCG2$>^256> :ADRLO=ADR 

CG2SJ -ADRHIK256 

1428  POKE  I0CB+C4. ADRLOiPOKE  I0CB+C5.A 

DRHl 

14  3  0  NM  =  616»FRAMES!NMHI  =  INT  cNn/-256>  sNM 

L0=NM-MMH1«256 

1448  POKE  I0CB+C8,NML0 :POKE  I0CB+C9,NM 

HI 

1450  X=USRcADR("hhhQLUm") , 16> :NHED=PEE 

KcI0CB+C9J»256+PEEKtI0CB+CBJ 

1468  CLOSE  »C1:RETURN 

1465  POKE  656,C3:P0KE  657, C2:?  "«  SiBS& 
QGlHMHDHa  »•  c- ;  FILENAMES;  ••>  •■;:POKE  6 
56, CORY 

1466  FOR  DELAV=C1  TO  UAIT:IF  PEEKC764J 
0255  THEN  GOSUB  1868 

1467  NEXT  DELAY>POKE  77, C8 

1468  POP  :GOTO  848 
1478  REM  PAUSE 

1488  FOR  DELAY=C1  TO  100 s IF  PEEKt764J< 

>255  THEN  GOSUB  1868 

1498  NEXT  DELAY:RETURN 

1508  HEM  TITLE  SCREEN 

1518  GRAPHICS  C0:POKE  709,C8:POKE  710, 

C8:G0SUB  31888:P0KE  752, Cl 

1528  POSITION  C8,C0:?   ■■■niiciimBiiimEiGn^nnriirr 

1530  POSITION  C0,Cl:?  ••■■■■■■■■■■■■■■■ 


1540  RETU 
1558  FOR 
RETURN 
1568  GRnP 
2,C1  :PAUS 
1578  POKE 
Ce:POKE  7 
1580  COLO 
:DRAUTO  1 
C2 
1598  ? 

esi" 

1688    ? 

HEXIT 

1618    ? 

1628    OLDX 

DY 

1638    POKE 


RN 
I  =  C1 

HICS 
E  =  C8 
708, 

12, ce 

R    Cl: 
21.57 

BHSI 

ai  msL 

ffleffl 

C4  :a 
656. 


TO  10!POKE  710,I:NEXT  I: 

MODE:GOSUD  31000:POKE  75 

C0:POKE  709.C0SPOKE  710, 

PLOT  30,C2:DHAUTO  121, C2 
:DRAUTO  38,57:DRAUT0  30. 

SBS    asa         sB&i    a 

OUII    [IiFASTlII    aiPAUSdl    IIIADU.JI 

fflHffl         aaa         msm         ih 

LDV=Cl:CURX=OLDX:CURY=OL 
CURV:POKE  657,CURX:?  ••■" 


OR  FIL 


1640  FOR  I=C1  TO  10:POKE  718,l!P0KE  71 

2,I:NEXT  I:RETURN 

1650  RETURN 

1660  FOR  DELAY=C1  TO  100 

1670  IF  PEEK(764> 0255  THEN  GOSUB  1060 

1680  NEXT  DELAY:RETURN 

1690  RETURN 

1700  REM  DIRECTORY  OF  SEQUENCES 

1718     GSlCl>="     ■•  :GS  C28»18>= GScC2>=G 

S:FlLU=Ce 

1720  riLENAMES=DEUICES: FILENAMES c4»="» 

.SEQ":CLOSE  ttClsOPEN  wCl ,  C7  ,  C8  ,  FILENAM 

ES 

1738  INPUT  «C1, FILENAMES 

1740  IF  FILENAMESCC5,C8>="FREE 

E>8  THEN  CLOSE  «C1 = GOTO  1800 

1758  F1LE=FILE*C1 

1760  FILENAMES=FlLENAMEScC3,LENtFILENA 

MESJ-C7>:GSCC8»CF1LE-CH+C1,C8*CFILE-C 

1>+C8J=FILENAMES 

1770  FOR  1=C8  TO  Cl  STEP  -C1:IF  FILENA 

MEScI.UO"  "  THEN  FNL  tFILEJ  =1  =  POP  :  GO 

TO  1798 

1788  NEXT  I 

1798  GOTO  1738 

1800  RETURN 

1828  ?  •  ■  ^HBBeHBBBHHSI ' '  i  I F 

N  1840 

1838  FOR  I=C1  TO  FILE:? 

«ci-Cl>+Cl,C8«<I-Cl>+C8>; 

III":  NEXT  I 
1840  ?  "[laiiaBL^ODflBBIi";  :IF 
:GOTO  1868 


NOT  FILE  THE 


!  :  ?  • 


11 


:?  GSCC8 

••  :  ?  "IBBai 


MC 
RF 
BK 
HF 
NX 

OU 
CU 
NQ 

NK 

Ul 

RS 
Zll 


NC 

AR 

UU 

HA 
SU 

ZA 

OX 

OL 
KS 
ZL 


1850  ?  ■■   N  NO  SEQUEN 
1868  ?  ••[HHftHHHBHHHHW 
1878  RETURN 
2328  REM  DIRECTORY 

2348  GSCC1J= GSC61 

K=C8:L=C0:POKE  752, Cl 
2350  CLOSE  »»Cl:OPEN  « 
2368  INPUT  t«Cl. FILENA 
2378  IF  FILENAMESCC4, 
EN  GOSUB  2448:RETURN 
2388  IF  FILENAMESCC5, 
LOSE  nCl:G0TO  2410 
2390  GS  tl7»K+Cl,  17»»K  + 
ILENAMES :K=K+C1 
2400  GOTO  2360 
2410  FOR  I=Ce  TO  13:P 
GSC17«CL+I>+C1,17»CL 
7»ttL  +  I  +  14>+Cl,17»CL  +  I 
2428  NEXT  1=?  :?  FILE 


CE  FILES  »•• 


6J=" 

Cl,  C 
MES 
11»  = 

C8»  = 

LENC 


••:G 
7,C0 
"SHO 
"FRE 
FILE 


SCC2 
,  "Dl 
P:CL 
E"  T 
NAME 


OSIT 
*IJ  + 
+  14> 
NAME 


ION  C1,C 
17>;"   •• 
+  17J 
S;" 


j=GS: 

:  M  .  X" 

K"  TH 
HEN  C 
Sj  j=F 


7  +  1:? 
;GS  Cl 


[iilDDfJDDBS 


2430    RETURN 

2448  PtISITIOM  2,22:?  •■ 
i:iliimBlil(i|l:Kii:r:1h  ^Q"  ;  :  RETURN 
3000     HEM    ERHUR    MSG 

3010     POKE     703,C4:POKE     752, Cl:?     "ll"  :  ?     •■ 
M    Bralf)[l(^Bri][8(§[§g@BS[^l:<[ll[IIB    *  Q" ; 

3820    FOR    I=C1    TO    108:NEXT    I:PDKE     703,2 
4:G0T0     260 

30000  RAMDISK  =  1  :TRAP  30010:CLOSE  ««4:0P 
EN  «»4,6,8,"D8  :».«•■  :RAM0ISK=8 
38010  TRAP  30020:CLOSE  ««4 
30020  TRAP  OFF:RETURN 

31000    BRK=USR  CADR  c-hEJnnMhhaniSISiapnifiWLimW 
"J , Cl>  :RETURN 


LISTING  3 


FILE    THEN    ? 


IN 

YO 
GX 
ZD 


EU 

IJ 
PR 

UO 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LU 

BQ 
YC 

DM 

BK 

MM 

CM 

UQ 

AR 
PO 
AL 

FU 
DU 

UL 

DL 

UJ 


10  REM  ICON  ANIMATION  SYSTEM, 

LISTING  3 
20  REM  BY  JIM  JOHNSON 

38  REM  cc>  1985,1989  ANTIC  PUBLISHING 
35  REM  CCREATE5  LINES  170  &  31800  FOR 
LISTINGS  1  AND  2-  CREATES  LINE  160  FOR 

LISTING  1> 
40  REM  ILINES  10-250  MAY  BE  USED  UITH 
OTHER  BASIC  LOADERS  IN  THIS  ISSUE. 
58  REM  CHANGE  LINE  70  AS  NECESSARY.* 
60  DIM  FNSC20J , TEMPS t20> ,ARSc93> !DPL=P 
EEKcl0592> :POKE  10592,255 

78  FNS="D:LINE5.LST":REM  THIS  IS  THE  N 
AME  OF  THE  DISK  FILE  TO  BE  CREATED 
80  ?  "HmiSK  or  Bassette?"; :POKE  764,25 
5 

90  IF   NOT  cPEEKt764>=18  OR  PEEKc764J= 
583  THEN  90 

100  IF  PEEKC764>=1B  THEN  FNS="C:" 
110  POKE  764,255:GRAPHICS  8:?  "      AN 
TIC'S  GENERIC  BASIC  LOADER" 
120  ?  ,"BV  CHARLES  JACKSON" 
130  POKE  10592. DPL:TRAP  200 
140 


Plea 


?  :?  :?  "Creating  ";FNS:?  • 
se  stand  bw." 

150  RESTORE  :  READ  LN:LI1=LN:DIM  AScLNi: 
C  =  l 

160  ARS=: READ  ARS 

170  FOR  X=l  TO  LEN<ARS>  STEP  3:P0KE  75 
2,255 

180  LM=LM-l: POSITION  10,10:?  "(Countdo 
wn  .  .  .T-";INT tLM^10> ;"> 

190  ASCC,C>=CHRSCUALCAHSCX,X+2>»»:C=C+ 
l:NEXT  X:GOTO  160 

280  IF  PEEKC195>=5  THEN  ?  :?  :?  "QTOO 
MANY  DATA  LINES!":?  "CANNOT  CREATE  FIL 
E! ":END 

218  IF  C<LN+1  THEN  ?  :?  "QTOO  FEU  DATA 
LINES!"!?  "CANNOT  CREATE  FILE!"!END 


220  IF  FNS="C:"  THEN  ?  : 
ssette,  press  cRETURNi " 
230  OPEN  Ml,8,e,FNS 
248  POKE  766,1:?  «tl;AS;: 
250  CLOSE  «*l:GRAPHICS  0: 


Prepare  ca 


POKE  766,0 

?  "BBmriiiiiMr^tiii^ioB 


1000  DATA  204 

1018  DATA  0490540488320838828650680820 

6106506888204  00  34104184141885003104141 

004  003104141811883104141010 

1828  DATA  8031041841418818831041041701 

698821410020030320832282821730838032  01 

801248004  224  800208241169000 

1038  DATA  1332131730030031332128960340 

41155  04  9055  04  88328888730678  84  061865868 

882848834104104133284184133 

1040  DATA  2031041332061841332051841841 

ANTIC  SOFTWARE  LIBRARY 


33207104184170194164133208164287136177       XK 
28514520313619225520824  7024 
1850  DATA  1652831812061332831440822382 
84824165285181287133285144882238286282        RU 
28  8219896834  04115585184  9  048 


1068  DATA  8488480328668828758610850838 

8284  886506868284  88  34184169888133077104 

104201008246887169112133016 

1878  DATA  1418142188968340418448498418 

58882869884  085882078832155 


HELP  files  printed!  on  half  the  pages 


TWo-Column  Print  Pro 


Article  on  page  13 


LISTING  1 


Don't  type  the, 
TYPO  11  Codes! 


^ 


2 

4 

6 

10 

PO 

ZS 

20 

M" 

25 

38 

s  c 

■  p 

48 

NK 

s 

56 

18 

NA 

11 

12 

13 

14 

N 

15 

s  t 

16 

17 

18 

19 

28 

21 

22 

23 

7 

6 

23 

HO 

24 

? 

38 
24 
OT 


HEM  T 
REM  B 
HEM  t 
GRAP 
KE  78 
tN>=i; 

?   !  ? 

!  ?   :? 
K5I2 

Din 

KSIZE 

AUE  =  e 

BLAN 

5  C2J  = 

GOSU 
8  TKA 
MES:P 
8  TRA 
8  FOR 
8  5  =  1 

6  FOR 
LINES 
6  INP 
1,3>  = 
6  ON 
8  COL 
8  COL 
8  S  =  F 
8  NEX 
0  NEX 
8  GOT 
8  IF 
:?  "F 


MO-COL 

V  EARL 

01989 

HICS  6 

9.2!DI 

HRS  C25 
.  9  .. 

■■ '  By 
E  =  48»*8 
BLANKS 
»  ,RS  C4 
!FILE= 
KS  C1J  = 
BLANKS 


OMN 
HA 

.     A 
:P0 

n  B 

3>  : 
TUO 
Ea 
8 

CKS 
1>  . 

1  !F 
:C0 


PRINTING 
LEV 

NTIC  PUBLISHING  INC 
KE  718,14!P0KE  712,14: 
UZSC3>  :FOR  N=:l  TO  3  i  BU 
NEXT  N 

COLUMN  PRINTER  PROGRA 
n  Haieu" 

IZE>.C0L1SCKSIZE>.C0L2 
TESTS c2> . FILENAMES tl5» 
INISHED=8 

!BLANKSCKSIZEJ= BLA 

L1S=BLANKS:C0L2S=BLANK 


B  788:60508  88e:G0T0  378 

P  238:CL0SE  »1:0PEN  «1-4.8,FILE 

AGE  =  8 

P  238 

C0LUMN:::1   TO  2 

:F  =  40 

LINE^l  TO  NL:REM  cNL  DEFINED  I 

748  AND  750> 
UT  «1,RS:IF  LEN<RSJ=3  THEN  IF  H 
•■XXX"  OR  RStl.3»=BUZS  THEN  158 
COLUMN  GOTO  170,188 
IS C5,F>=RS :GOTO  190 
2S  C5.FJ=RS 
+l:F=5+39 
T  LINE 
T  COLUMN 
0  250 

PEEKtl95J=170  THEN 
ILE  NOT  FOUND 


?  CHR$(125i : 
CLOSE  »»l:G0TO  38 


PEEKcl95>=168  THEN  ?  "DRIUE«  ER 
05E  tt2:G0T0  440 

PEEKtl95>=144  THEN  ?  CHRS C125> : 
ISK  DRIUE  ERROR": CLOSE  »1 : GOTO 


5  IF 

R":CL 

0  IF 

:?  "D 

0 

5  IF  PEEKC195J=136  THEN  FINISHED=1:G 

0  250 


246  ?  "DISK  ERH0H":CL05E  «1:G0T0  388 

250  PAGE=PAGE*1 

260  CLOSE  t«2:0PEN  «2,8,0,"P:" 

270  S:=l:F  =  40 

280  FOR  PRVNTLVNE=1  TO  NL 

290  ?  «2;C0L1SC5.F> ;C0L2S C5,F> 

300  S=F+l:F=S+39 

310  NEXT  PRVNTLYNE 

320  C0L1S=BLANKS:C0L2S=BLANKS 

330  ?  »2:?  »»2;BLANKSci.  36>  ;  "-  ";PAGEj 


348  I 

341  ? 

ED  =  8: 

668: 

345  I 

346  ? 
Vour 
eadu" 
358  I 
«2!NE 
366  G 
376  C 
CHRSf 

375  I 
1^2 

376  I 
E  8  1 
386  ? 
ue" 


F  FI 

B2; 

?  "H 

RUN 

F  CP 

"Pa 

Pp 

:G0S 

F  CP 

XT  N 

OTO 

LOSE 

125> 

F  FS 

X  14 

F  FS 

'■2    X 

!  "y 


LEOFINI5HED    THEN    345 
BLANKSC1,35> ;"-     END     -":F1NISH 
DONE     !":?    "Press    a    Key":GOSUB 

<>1  THEN  358 

use  for  Paper  Change  -  ChecK 

rinter-  Press  Any   Keu  When  R 

UB  660:6010  118 

=2  THEN  FOR  N=l  TO  FS-NL-2:? 

110 
n2:6RAPHICS  8 : POKE  718.58:? 

=84  THEN  ?  :?  "<  LEGAL  SIZE  8 

INCHES  >" 
=66  THEN  ?  :?  "<  STANDARD  SIZ 

11  INCHES  >" 
"Be  Sure  ANTIC  DISK  Is  In  Dri 


XK 

AH 

NO 
QQ 

UO 
UG 
AH 

Ba 
EU 

DO 

EO 
UO 

EU 

un 

EG 
ML 

sx 

AU 
TH 

UN 

HZ 
QD 

UU 
UB 

at 

TZ 

PI 

HU 
GD 
FO 
UM 

IB 
CO 

GA 


DO 

MU 

UU 
UU 
YT 
PN 
TU 

CK 

GL 

UM 
CU 
ZM 
PV 


382  ?  :? 
e  readw" 
385  ?  :? 
print" 
398  ?  :? 

!  ? 


•Be  sure  Printer  and  Paper  ar 
7    "Uhat  File  do  uou    wish  to 


■C2i 


CIJ   ANTIC  HELP  FILE^^ 

OTHER^^:POKE  752.1:?  :  ? 


488 

"?•• 

418  GOSUB  668 

428  ON  BVTE-48  GOTO  438.435 

438  FILENAME  S  =  ^^D:  DOC.  TXT  ":FLAG  =  2! 

188 

435 

448 


GOTO 


?  CHRStl25> 

?  :?  :?  :?  "cPress   RETURN   for  di 
SK  director^":?  ••cLists  oniu  files  wi 
th  .TXT  extender*" 
458  ?  :?  "ENTER  NAME  OF  48-COLUMN  TEXT 

FILE^^ 
468  ?  ••CD  :  XXXXXXXX  .  XXXJ" 

478  TRAP  230:INPUT  FILENAMES:IF  FILENA 
MES=""  THEN  GOSUB  598:G0T0  448 
472  IF  LENCFILENAMESX.3  THEN  ?  "FILENA 
475  TESTS=FILENAMESC1.2» 
4/6  IF  TESTS<>"D:^^  AND  TESTS<>"D1"  AND 

TESTS<>"D2"  AND  TESTS<>"D8"  THEN  ?  "D 
HIUE  «»?'^:6OT0  458 

480  IF  LENCFILENAMESJ >15  THEN  ?  "FILEN 
AME  TOO  LONG  !":?  :GOTO  458 
498  CLOSE  ttl:OPEN  «1 , 4 . 0 . FILENAMES 
58H  TRAP  558:F0R  N=l  TO  18 
510  INPUT  «1.RS:IF  LENcRSJ>4e  THEN  ?  •• 
NOT  A  48-COLUMN  F1LE":P0P  : CLOSE  «1:G0 
TO  568 

528  IF  LENCRSJ>1  THEN  CLOSE  «1:FLAG=2: 
POP  :?  :GOTO  188 
538  NEXT  N 
558  CLOSE  »!:?  :?  : 
TEXT  FILE  !  •• 

568  ?  :?  ••PRESS  ANY  KEY  TO  CONTINUE^^ 
578  GOSUB  668 
588  GOTO  388 

590  TRAP  630:CLOSE  «»1  =  OPEN  «1,7,0.^^D:« 
.«••:  TE5T  =  0:FOR  N  =  l  TO  99:INPUT  «1.RS 
600  IF  RSC11.13J="TXT^^  THEN  TEST  =  TE5T  + 
l:?  RS;"   "J 
618  NEXT  N 

638  IF  PEEKC195J=136  THEN  658 
648  ?  "DISK  ERRORS* 
658  IF  TESKl  THEN  ?  :? 
TEXT  FILES  FOUND":? 
655  CLOSE  ttl:RETURN 
668  CLOSE  tt4:0PEN  tt4 . 4 , 8 
YTE:CL05E  tt4:RETURN 

BE  SURE  SOURCE  DISK  IS  IN  DR 
"BE  SURE  PRINTER  IS  READY":? 
SELECT  PAPER  SIZE":? 
ci>  Standard    8  1<'2 


•NOT  A  48-COLUMN 


•NO  48  COLUMN 


;GET  t»4.B 


?   :? 
■:?   :? 
:  "7 
?'  • 


X  11  in 


700 
lUE^ 
:  o 

710 

ches  .  •■ 

728  ?  :?  "     C2>  Legal  Size  8  1^2  x  14 

inches":POKE  752.1:?  ■■?■•; 
738  GOSUB  660 

740  IF  BYTE=49  THEN  FS=66 : NL=52 : RETURN 
758  IF  BVTE  =  58  THEN  FS  =  84  :  NL  =  68 : RETURN 
768  GOTO  738 
888  ?  CHRS  C125>  :? 
T^^ 

810     ?     :?     ■ 
ch    page^^ 
828    ?     : ?    • 
••  :  ?     :  ?     ••■}•• 

838  GOSUB     668 

840  IF  BVTE=49  THEN  CP=1 : RETURN 

850  IF  BVTE=50  THEN  CP=2:RETURN 

860  GOTO  838 


■MHICH  DO  YOU  MAN 


ci>  Change  paper  after  ea 
c2>  Continuous  feed  paper 
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Antic  Classifieds 


SOFTWARE,  ETC. 


****** 

ENJOY  quality  PD  software!  Games- 
productivity — utilities — more!  Demo  disk, 
$3.00.  .  .catalogFREE.  Homemade,  6011  Hyde 
Park  Circle,  Suite  206,  Jacksonville,  FL  32210 

(6/89) 

Atari  800/XL/XE  public  domain  disks.  High 
quality  disks,  fast  service,  free  list.  High  qual- 
ity disks,  fast  service,  free  list.  1st  Byte,  PO  Box 

130822,  Tyler,  TX  75713  (8/89) 

Large  library  of  the  best  public  domain  soft- 
ware for  the  800/XL/XE.  We  have  over  200 
disks  to  pick  from,  low  prices,  fast  service,  & 
unbelievable  discounts.  Write  for  our  large  free 
list.  ComputeiActive,  Box  893-A,  Clinton,  OK 

73601  (6/89) 

9  DISKS  FULL  OF  SPARTADOS  UTILITIES  for 
use  with  8  bit  Atari  &  SpartaDOS.  Only  14.95 
+  2.50  S/H.  ComputerActive,  Box  893-S,  Clin- 
ton,  OK  73601  (6/89) 

PRINT  SHOP  ICONS  FOR  THE  ATARI 
800/XL/XE.  10  disks  with  over  1000  pictures 
for  use  with  Printshop.  Only  14.95  +  2.50  S/H. 
Order  today!  ComputeiActive,  Box  893-P,  Clin- 

ton,  OK  73601  (6/89) 

12  X-rated  disks  for  the  Atari  800/XL/XE  only 
$14.95  +  $2.50  S/H.  You  must  send  a  signed 
statement  of  being  over  21  with  a  check  or 
money  order  to:  ComputetActive,  Box  893-X, 
Clinton,  OK  73601  (6/89) 

250-1-  DS/SD  DISKS  OF  PD  SOFTWARE  FOR 
THE  8-BIT  ATARI.  SEND  $3  TO;  AAPDS  6- 
18TH  EDGEMORE,  HUTCHINSON,  KS  67502 
FOR  A  CATALOG  LISTING  AND  DEMO  DISK. 


****** 
BEST  PD  DISKS/PRICES— fastest  service— 
FREE  bonuses— 8-bit/ST  Automatic  DISK-A- 
MONTH  program.  Full  disks  less  than  $1.50 
each.  Super  sample  disk  with  catalog  $3. 50. 
Specify  Computer.  PATNOR,  PO370782,  El 

Paso,  TX  79937(6/89) 

The  A  Exchange — ^A  Users  Newsletter  for  ALL 
Atari  Owners.  Send  SASE  for  FREE  Issue.  The 
A  Exchange,  P.O.  Box  25852-A,  Fresno,  CA 

93729  (6/89) 

Public  Domain  Software — ST  S4/Disk, 
800/XL/XE  $3/Disk.  Largest  ST  Selection.  The 
Atari  ST  Book  $16.95.  Fast  Service,  Visa/Master- 
card, FREE  catalog — Specify  Computer  BRE 
Software,  352  W.  Bedford,  Suite  104-A,  Fresno, 
CA  93711.  (800)  347-6760  (1/90) 

50  Arcade,  Adventure,  strategy  games  by 
Accolade,  Atari,  Avalon  Hill,  SSI,  $6  each.  Atari 
800  48K  and  810  drive  $95.  Paul  Cirto  (305) 

920  1954  (6/89) 

FREE  ATARI  8-BIT  PD  SOFTWARESend 
large  SASE  for  listing  and  details  you  pay  only 
for  postage,  handling  and  blank  media.  DINO'S 
RYO  SOFTWARE,  664  W  Arrow  Hwy.,  Suite 
197,  San  Dimas,  Calif  91773  (6/89) 

****** 

Stop  overpaying  for  RD.  Software!!!  ALL  8-bit 
disks  only  $2.00  each,  ST  only  $300.  Quan- 
tity discounts,  great  selection.  Specify  com- 
puter. Send  large  SASE:  MWPDS,  890  N. 
Huntington  St.,  Medina,  OH  44256  (6/89) 


NEW  800/XL/XE  SOFTWARE!  An  international 
Collection  of  Shareware  and  Public  Domain 
programs  for  the  discriminating  Atari  owner 
Every  disk  Guaranteed!  Dependable  world- 
wide service.  Low  prices!  Send  for  Free  descrip- 
tive catalogue.  BELLCOM,  Box  1043-A,  Peter- 
borough,  Ontario,  Canada  K9J  7A5  (6/89) 

STOP!  LOOK!  S4,000/month  with  computers. 
Homebased.  Proven.  No  experience/capital. 
Guaranteed.  Free  details.  MacKenzie.  Box 
91181— MCC,  Pasadena  CA  91109  (6/89) 

AGAPE  GAMES- 5  CHRISTIAN  GAMES. 

KINGS  GLORY  Arcade  like  Adventure  with  26 
mazes  and  a  maze  maker.  BIBLE  WORD 
SEARCHER  with  30  puzzles  and  a  puzzle  gener- 
ator Plus  3  games  that  teach  the  Books  of  the 
Bible.  For  Atari  8-bit  (requires  48K-vdisk) 
$12.95-Daniel  Sharpe,  GPO  911,  Chicopee,  MA 
01021  (7/89) 

COMPREHENSIVE  COMIC  BOOK  SYSTEM! 
ATARI  8-bits,  48-K,  disk  drive.  Excellent  man- 
ual! $19.95.  SASE  for  More  Info.  BUECO,  3900 
Hampton  Dr.,  Anchorage,  AK  99504  (6/89) 

****** 
BATTERY  BACKED  UP  RAMDISK.  Never 
lose  your  memory,  Boot  from  Ramdisk!  No 
installation.  Ramdisk  cartridge  plugs  into  Atari 
400/800  or  XL/XE.  32K  $99.95,  64K  $129.95, 
192K  $249.95  Certified  check.  Money  order, 
VISA  accepted.  CANOE  COMPUTER  SERV- 
ICES, 11006-155  ST  EDMONTON,  AB,  T5P- 
2N3  Phone  (403)  437-4619  (6/89) 

Your  Ad  Could  Appear  Here 


Advertisers 
Index 


Be  sure  to  mention  ANTIC  when  contacting  these  advertisers— all  of  whom 
support  the  Atari  8  bit  and  ST  computer. 

PAGE  NO. 

ALPHA  SYSTEMS 6 

AMERICAN  TECHNAVISION IFC 

B  &  C  COMPUTERVISION    43 

COMPUTER  MAIL  ORDER BC 

COMPUTER  SOFTWARE  SERVICE 44 

INNOVATIVE  CONCEPTS 14 

REDMOND  CABLE 8 

SAN  JOSE  COMPUTER IBC 

This  list  is  provided  as  a  courtesy  to  our  advertisers.  ANTIC  does  not 
guarantee  accuracy  or  comprehensiveness. 


Advertising 
Deadlines 


August  1989 

Insertion  Orders:  May  1 
Artwork:  May  8 

On  Sale:  Last  week  of  June 

October  1989 

Insertion  Orders:  June  30 

Artwork:  July  7 

On  Sole:  Last  week  of  August 

September  1989 

Insertion  Orders:  May  31 
Artwork:  June  7 

On  Sale:  Last  week  of  July 


GET  YOURS  FAST 


Super  Bonus  Program! 

Found  only  on  the  disk,  it's  too  large  a  type-in 
program  to  fit  in  the  magazine. 

Plus  all  172K  of  this  month's  Antic  programs  on 
disk.  Great  8-bit  software  without  typing! 

Phone  Toll  Free 

(800)  234-7001 

Phone  orders  by  Visa  or  MasterCard  only 
Ask  for  ADS689 


^/r  *^^    The  ATARI' Resource 


BUY 

Name                                                                                                           Company 

Address                                                                                                        Phone 

SELL 

Cit\'/Siaie/Zip 

MasterCard/Visa  Number                                                                   Expiration  Date 

Signature                                                                                                  Issue(s)  Ad  to  Appear 
Enclosed  is  my  payment  for  S  , 

RATE:  SI. 00  PER  WORD— twenty  (20)  word  minimum. 

BOLDFACE:  Acid  S7.50  per  line  for  boldface  words  or  add  840.00  for  tlie  entire  ad  set 
in  boldface  (any  number  of  lines). 

STARS:  Add  $6.50  for  one  (1)  line  of  six  (6)  stars  ••••••  at  top  of  ad. 
TERMS:  Prepayment  is  required.  Checl<,  Money  Order,  Visa  or  MasterCard  is 
accepted.  Make  check  payable  to  Antic  Publishing. 

FORMS:  Ads  are  subject  to  publisher's  approval  and  MUST  BE  TYPED.  Please  underline 
words  to  be  set  in  boldface. 

GENERAL  INFORMATION:  Advertisers  using  Post  Office  Box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Ad  will  appear  in  the  next  avail- 
able issue  after  receipt  unless  otherwise  specified. 

DEADLINE:  90  days  prior  to  cover  date  (e.g.,  December  1988  closes  September  1, 
1988— December  issue  on  sale  November  1,  1988). 

Clip  this  coupon,  attacli  to  typewritten  copy  and  send  with  remittance  to  address  on 
the  left. 

HANDWRITTEN  COPY  WILL  NOT  BE  ACCEPTED 

TRADE 

SWAP 

Antic  Classifieds 

^4-J  Second  Sircei,  San  Fiandsci).  CA  9401'' 
Telephone  (415)9570886 

AN  AD  IN  ANTIC  REACHES  MORE  THAN  100,000  SERIOUS  ATARI  USERS 
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Tech  Tips 


GTIA  PIXELS  IN  GR.O  &  GR.8 

BY  GREG  VOZZO 

This  short  program  shows  you  how  to  use  those  long, 
multi-colored  GTIA  pixels  in  other  graphics  modes. 

There  are  many  powerful  uses  for  this  technique,  such 
as  creating  multi-colored  redefined  character  sets  for  ar- 
cade games.  The  thickness  of  the  GTIA  pixels  make  let- 
ters and  numbers  almost  illegible,  but  their  variety  of  colors 
offer  an  easy  way  to  add  color  to  your  characters. 

In  modes  such  as  Graphics  8,  each  pixel  is  one  bit  wide. 
Thus,  if  a  bit  is  set,  its  corresponding  pixel  is  lit.  In  these 
graphics  modes,  the  bit  pattern  shown  in  the  left  half  of 
figure  1  will  draw  an  "A"  and  uses  64  pixels. 

GTIA  pixels  are  four  bits  wide.  In  a  GTIA  mode,  the 
bit  pattern  would  draw  a  small  multi-colored  box  eight 
scan  lines  tall  and  two  pixels  wide.  The  color  of  each  pixel 
is  determined  by  its  bit  pattern.  The  second  scan  line,  for 
example,  contains  one  pixel  of  COLOR  1  (or  0001  in  bi- 
nary) and  one  pixel  of  COLOR  8  (1000  in  binary). 

The  right  half  of  Figure  1  shows  the  color  breakdown 
of  the  entire  character 


FIGURE  I 

DECIMAL 

BITMAP 

IN  BINARY 

AS  SEEN  BY  GTL\ 

0 
24 

0000  0000 

0001  1000 

COLOR  0 
COLOR  1 

COLOR  0 
COLOR  8 

XX 



60 

XXXX 

0011  1100 

COLOR  3 

COLOR  12 

102 

-XX 

XX- 

01100110 

COLOR  6 

COLOR  6 

102 

-XX 

XX- 

Olio  Olio 

COLOR  6 

COLOR  6 

126 

-xxxxxx- 

OIU  1110 

COLOR  7 

COLOR  14 

102 

-XX 

XX- 

Olio  Olio 

COLOR  6 

COLOR  6 

0 



0000  0000 

COLOR  0 

COLOR  0 

Learn  these  simple  techniques  and  you'll  have  color- 
ful GTLA  characters  dancing  around  your  screen  in  no 
time. 

The  listing  below  is  a  short  demo  of  using  GTIA  pixels 
in  Graphics  0  and  Graphics  8.  When  RUN,  the  program 
asks  if  you'd  like  to  see  mode  9  (16  shades  of  a  single 
color),  mode  10  (9  colors)  or  mode  1 1  (16  colors  of  a 
single  shade).  After  you  choose  your  mode,  the  program 
will  draw  a  series  of  stripes  in  Graphics  8,  print  some  text 
in  the  text  window,  then  pop  into  your  chosen  GTIA 
mode  and  rotate  the  colors.  When  you're  done,  press  any 
key  to  return  to  the  main  menu. 


>^  Don't  type  the 

si^  TYPO  II  Codes! 

RM 

18    GRAPHICS    8:?    "B" :  ?    "■DBDBIIODE    9":?     : 

?     ■■■^■[enODE     18-:?     :?     •'■SB[llt10DE    11":?     : 

?     !?    "SELECTION:"; 

OD 

20     CLOSE    ttl:OPEN    ttl-4.8."K:" 

UR 

30    TRAP    30:GET    «1 , K : K=K-48 : IF    K<1    OR    K 

>3    THEN    30 

KB 

48    G=K+8:GR0PHICS    8:P0KE    87,G:F0R    1=8 

TO    8+cG  =  15»»»7 

JE 

58    COLOR    I:FOR    J=I» C10+ CG=10>»53     TO    I» 

Cie+CG=18>«5>+CB+(G=181M5) 

sn 

68     PLOT     e.J:DROUTO     79,J:NEXT     J:NEXT    I: 

?    "THIS    IS    BDIliaDB    IN    THIS    nODE.";:PaKE 

623.9  6»cK=lJ+128*«K=2»+192»*cK=3J 

IN 

78    IF    K=l    THEN    FOR    1=8    TO    255:P0KE    712 

.I:GOSOB    75:NEXT    I:POKE    712,8:G0T0    88 

BU 

71    IF    K=2    THEN    FOR    1=784    TO    712:PGKE    I 

,PEEKC53778J :NEXT     I:GOTO     80 

V5 

72     FOR    1=0     TO    255:P0KE    712,I:G0SUB     75: 

NEXT    I:POKE    712,6:G0T0    88 

KE 

75     FOR    P=l     TO    ie:NEXT     P:RETORN 

5P 

88     TRAP     88:GET    «tl,K:RON 

ATARI  AUDIO  CASSEHE 

BY  GREG  VOZZO 

This  short  BASIC  program  turns  on  your  Atari  410 
or  1010  Cassette  Recorder's  motor,  letting  you  play 
any  audio  tape  through  the  TV  or  monitor  speaker. 
It  reactivates  itself  whenever  [RESET]  is  pressed.  To 
deactivate  it,  POKE  1791  with  any  number  from 
0-254.  To  re-enable  it,  POKE  1791  with  a  255. 

If  you  want  to  disable  it  without  disabling  the 
[RESET]  reactivation  process,  simply  POKE  a  60  into 
location  54018.  POKE  54018  with  a  52  to  reactivate 
the  motor  at  any  time. 

This  program  is  an  extension  of  my  DOSINI HOU- 
DINI,  a  Tech  Tip  from  January  1988,  which  explains 
how  to  trap  [RESET]  by  modifying  part  of  your 
Atari's  warm-start  cycle. 


C^ 


Don't  type  the 
rypo  II  Codes! 


BR 


V5 


18  FOR  1=1775  TO  1791:READ  A:POKE  I-A: 

NEXT  I:DATA  32.0-8,173,255,6.281.255.2 

08.5,169.52.141,2.211.96.255 

20  POKE  1776.PEEKC12J iPOKE  1777.PEEKC1 

3>:P0KE    12. 239:  POKE    13^6:?    "I«ia]@@lllliDSaiil 

uinmuiBciGncnujiiiim ":poke   54018,52 


Antic  pays  $25  for  every  original  and  exclusive  Tech 
Tip  submission  that  we  publish.  Send  your  8-bit  or  ST 
disk  and  printout  to:  Antic  Tech  Tips,  544  Second 
Street,  San  Francisco,  CA  94107.  Tech  Tips  welcomes 
very  short  programs  that  demonstrate  the  Atari's 
powers,  simple  hardware  modifications,  or  useful 
macros  for  popular  software. 
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ANTIC,  THE  ATARI  RESOURCE 


ComputerVisions 


3257  KiferRoad 
Santa  Clara,  CA  95051 
(408)  749-1003 


A 


STORE  HOURS 
TUB  -  FRI  10am  -  6pm 

SAT  -  10am  -  5pm 
CLOSED  SUN -MON 


SOO/  X  JL./  X  E   SOFTWy^  RE 

ALL  TITLES  ON  DISK 


,^= 


ENTERTAINMENT 

12  ADAMS  ADVENTURES  ..  14.95 

ALIANTS  26.95 

ALT.  REALITY  CITY 26.95 

ALT.  REALITY  DUNGEON.  26.95 

BEYOND  CASTLE  WOLF....  14.95 

BISMARK  26.95 

BOP  S  WRESTLE  (64K)...  26.95 

BORDINO:1812  26.95 

BOULDERDASH  CONSTR.SET  17.95 

BRUCE  LEE  17.95 

CASTLE  WOLFENSTEIN 14.95 

DALLAS  QUEST  7.95 

D-BUG  7.95 

F-15  STRIKE  EAGLE  ....  31.50 

FIGHT  NIGHT  17.95 

GAUNTLET  (64K)  31.50 

DEEPER  DUNGEONS 22.50 

GUNSLINGER 26.95 

HARD  HAT  MAC  7.95 

JAWBREAKER  9.95 

KARATEKA  13.50 

KNICKERBOCKERS  13.50 

KORONIS  RIFT  13.50 

LAST  V-8  8.95 

LEADERBOARD  13.50 

MAIL  ORDER  MONSTERS  ..  13.50 

MICROLEAGOE  BASEBALL..  35.95 

MONTEZUMA'S  REVENGE...  14.95 

MOUSEQUEST 17.95 

MOON  SHUTTLE  7.95 

NINJA  8.95 

OIL'S  WELL  9.95 

O'RILEY'S  MINE  9.95 

PIRATES  OF  BARB.  COAST  22.50 

PREPPIE  I  S  II  9.95 

RESCUE  ON  FRACTALAS...  13.50 

SILENT  SERVICE  31.50 

SPEEDKING  8.95 

SPIDERMAN  7.95 

SPITFIRE  40  31.50 

STARFLEET  I  44.95 

SPY  VS.  SPY  III  17.95 

STOCKMARKET  22.50 

STRIP  POKER  26.95 

SUMMER  GAMES  17.95 

TAX  DODGE  9.95 

THE  HULK  7.95 

TOMAHAWK  (64K)  26.95 

TOP  GUNNER  17.95 

TOUCHDOWN  FOOTBALL  ...  13.50 

TRAILBLAZER  26.95 

UNIVERSE  44.95 

ZAXXON  13.50 

PROGRAMMING 

ACTION!  71.95 

ACTION!  TOOLKIT  2  6.95 

BASIC  XL  53.95 

BASIC  XL  TOOLKIT  26.95 

BASIC  XE  71.95 

DISK  I/O  26.95 

DRAPER  PASCAL  44.95 

KYAN  PASCAL  62.95 

LIGHTSPEED  C  35.95 

LOGO  29.95 

MAC/65  71.95 

MAC/65  TOOLKIT  26.95 

MACROASSEMBLER  22.50 

PILOT  19.95 

SPARTA  DOS  X  71.95 

TOP  DOS  1.5  PLUS  35.95 

PRODUCTIVITY 

ANIMATION  STATION  ....  89.95 

ATARIWRITER+ 3  9.95 

ATARI  BOOKKEEPER  24.95 


ATARI  MUSIC  II  14.95 

AWARDWARE  (1050)  13.50 

BANK    STREET   WRITER....  14.95 

BLAZING  PADDLES  31.50 

CELEBRITY  COOKBOOK  ...  26.95 

COMPUTE  YOUR  ROOTS  ...  35.95 

DATAMANAGER 17.95 

FAMILY  FINANCE  6.95 

GUITAR  WIZARD  26.95 

HOME  ACCOUNTANT  19.95 

HOME  FILING  MANAGER.  .  6.95 

HOMEPAK  24.95 

INVENTORY  MASTER  80.95 

LETTER  WIZARD  29.95 

MUSIC  CONSTRUCTION  SET  13.50 

NEWSROOM  (1050  -  64K) .  13.50 

NEWS  STATION  26.95 

NEWS  STA.  COMPANION.  .  26.95 

PAGE  DESIGNER 26.95 

PRINT  POWER  (1050)....  13.50 

PRINTKIT  (1050)  13.50 

PRINTSHOP  34.95 

P.S.  COMPANION  (64K)  .  24.95 

P.S.GRAPHICS  LIBRARY  1  17.95 

P.S.GRAPHICS  LIBRARY  2  17.95 

P.S.GRAPHICS  LIBRARY  3  17.95 

PROOF  READER  17.95 

PUBLISHING  PRO  35.95 

RUBBER  STAMP  2  6.95 

SYNTREND  14.95 

SUPER  MAILER  35.95 

THE  LOTTO  PROGRAM  ....  17.95 

TIMEWISE  6.95 

TURBOWORD/80  COLUMN 

REQUIRES  XEP80 44.95 

VIDEO  TITLESHOP  (64K).  26.95 

GRAPHICS    COMPANION.  17.95 

VIRTUOSO  29.95 

VISICALC  24.95 

EDUCATION 

ATARI  LIGHT  MODULE 

(REQ.ATARILAB  STARTER)  9.95 

BUZZWORD  35.95 

GRANDMA'S  HOUSE  (-10)  9.95 

HEY  DIDDLE  (AGE  3-10).  9.95 

MASTER  TYPE  14.95 

PLANATARIUM 22.50 

STATES  AND  CAPITALS  ..  9.95 

TOUCH  TYPING  9.95 

CBS  (AGE  3-6)  : 

ASTROGROVER  8.95 

BIG  BIRD  SPEC  DELIVE  8.95 

ERNIE'S  MAGIC  SHAPE.  8.95 
DESIGNWARE: 

MATHMAZE  (6-11)  ....  35.95 
MISSION  ALGEBRA  (13+)35.95 

SPELLICOPTER  (6-11) .  35.95 
TINK  TONK  (AGE  4-6)  : 

ABC'S  8.95 

COUNT  AND  ADD  8.95 

SMART  THINKER  8.95 

SPELLING  8.95 

SUBTRACTION  8.95 

THINKING  SKILLS  ....  8.95 

ALL  6  TINK  TONKS..  39.95 
UNICORN: 

10  LITTLE  ROBOTS 

(PRE-SCHOOL)  26.95 

FUN  BUNCH  (6-ADULT)  26.95 
RACECAR  RITHMETIC 

(AGE  6  +  )  26.95 

WEEKLY  READER  (PRE-SCHOOL)  : 

STICKY  BEAR  SHAPES  .  26.95 

STICKY  BEAR  NUMBERS.  26.95 

STICKY  BEAR  ABC'S  ..  26.96 

STICKY  BEAR  OPPOSITE  26.95 


SOO/  X:  E/  X:E   SOETyV^S^Xt^E 

ALL  TITLES  ON  CARTRIDGE 

ENTERTAINMENT 

ALIEN  AMBUSH  9.95 

ACE  OF  ACES  . (XL/XE)  .  24.95 

ARCHON  19.95 

ASTEROIDS  15.95 

ATARI  TENNIS  9.95 

BALL  BLAZER  19.95 

BARNYARD  BLASTER  ....  24.95* 

BATTLEZONE  19.95 

BLUE  MAX  19.95 

CAVERNS  OF  MARS  14.95 

CENTIPEDE  14.95 

CHICKEN  9.95 

CHOPLIFTER  14.95 

CLAIM  JUMPER  9.95 

CLOUDBURST  9.95 

CRIME  BUSTER (XL/XE)  .  24.95* 

CROSSBOW  24.95* 

CROSSFIRE  9.95 

DAVIDS  MIDNIGHT  MAGIC  19.95 

DEFENDER  14.95 

DELUXE  INVADERS  7.95 

DESERT  FALCON  19.95 

DIG  DUG  19.95 

DONKEY  KONG  5.00 

DONKEY  KONG  JR 19.95 

EASTERN  FRONT  (1941).  19.95 

E.T.  PHONE  HOME  9.95 

FIGHT  NIGHT  19.95 

FINAL  LEGACY  19.95 

FOOD  FIGHT  (XL/XE)...  19.95 

FOOTBALL  14.95 

FROGGER  14.95 

GALAXIAN  19.95 

GATO  2  4.95 

GORF  (400/800)  5.00 

GYRUSS  14.95 

HARDBALL  19.95 

INTO  THE  EAGLES  NEST  19.95 

JOURNEY  TO  PLANETS  ..  9.95 

JOUST  19.95 

JUNGLE  HUNT  19.95 

KABOOM!  14.95 

LODE    RUNNER    24.95 

MARIO    BROS 19.95 

MILLIPEDE    19.95 

MISSILE    COMMAND    5.00 

MOON    PATROL    19.95 

MR.    COOL    9.95 

MS.    PAC    MAN    19.95 

NECROMANCER    19.95 

ONE    ON    ONE     (XL/XE)...  19.95 

PAC    MAN    5.00 


PENGO    

19 

19 

95 

POLE    POSITION    

95 

POPEYE    

14 

14 

95 

Q-BERT    

95 

QIX     

14 
19 

95 

RESCUE   ON    FRACTALAS    . 

95 

RETURN   OF    THE    JEDI    . . 

14 

95 

ROBOTRON:2084     

19 

95 

SKY   WRITER    

14 
9 

95 

SLIME     (400/800) 

95 

SPACE    INVADERS    

14 

95 

STAR    RAIDERS    

5 

00 

STAR    RAIDERS    II    

19 

95 

SUPER    BREAKOUT    

9 

95 

TRACK    &    FIELD    

24 

95 

TURMOIL    

9 
5 

95 

WIZARD   OF   WOR 

00 

*    REQUIRES    LIGHT    GUN 

PRODUCTIVITY 

ATARIWRITER    

19 
22 

95 

MICROFILER    

50 

EDUCATION 

ATARILAB    STARTEER    SET 

29 

95 

MATH    ENCOUNTERS    

9 

95 

FISHER   PRICE     (PRE    SCHOOL 

: 

DANCE    FANTASY    

8 

95 

LINKING    LOGIC    

8 

95 

LOGIC    LEVELS    

8 

95 

MEMORY   MANOR    

8 

95 

SPINNAKER     (AGE    3-10) 

ALF    IN    COLOR   CAVES    . 

9 

95 

ALPHABET    ZOO    

9 

95 

DELTA    DRAWING    

9 

95 

FACEMAKER    

9 
9 

95 

KIDS    ON    KEYS    

95 

KINDERCOMP    

9 

95 

(AGE    7   -  ADULT) : 

ADV. CREATOR     (400/800 

.9 

95 

FRACTION    FEVER    

9 

95 

THE  BASIC  TUTOR 

Learn  to  program  in  BASIC 

Requires  a  410  OR  1010  Program  Recorder 

COMPLETE  PACKAGE  ONLY  «9.85 

BOOKS  ONLY 

DE  RE  ATARI  10.00 

LOGO  10.00 

ATARIWRITER    10.00 

DOS    2.5    12.95 

BASIC  REFERENCE  5.00 

BOOKKEEPER  10.00 


♦ 


RECONDITIONED  ATARI  MERCHANDISE 

30  DAY  WARRANTY 


800  (48K) 

COMPUTER 

$79.95 

400  (16K) 
COMPUTER 

$29.95 


1020  COLOR 
PRINTER/ PLOTTER 

$19.95 

40  COLUMNS  WIDE 

(NEW    IN    BOX) 


SPACE  AGE 

JOYSTICK 

$5.00 

ATARI 
TRACKBALL 

$9.95 


ATARI 

BOOKKEEPER 

$14.95  -  NO  BOX 

ATARI 

NUMERIC 

KEYPAD   $7.95 


1030  MODEM 
WITH  EXPRESS! 

$24.95 

1010  PROGRAM 

RECORDER 

$29.95 


DISKETTES 
AS  LOW  AS  20  CENTS 

10  FOR  $4.00 

100  FOR  $29.95 

1000  FOR  $200 

MOST  ARE  UNNOTCHED 

WITH  OLD  SOFTWARE 


SHIPPING    INFORMATION-    Prices  do  not  include  shipping  and  handling.    Add  $5.00  for  small  items  ($8.00  Min.  for  Canada).  Add  $8.00  for  disk 
drive.   Add  $2.75  for  C.O.D.   Calif,  res.  include  7%  sales  tax.    Mastercard  and  Visa  accepted  if  your  telephone  is  listed  in  your  local  phone  directory. 
Orders  may  be  pre-paid  with  money  order,  cashier  check,  or  personal  check.    Personal  checks  are  he^d  for  three  weeks  before  order  is  processed. 
C.O.D  orders  are  shipped  via  UPS  and  must  be  paid  with  cash,  cashier  check  or  money  order.    International  and  APO  orders  must  be  pre-paid  with 
cashier  check  or  money  order.    $20.00  minimum  on  all  orders.    All  sales  are  final  -  no  refunds  -  prices  are  subject  to  change. 

Phone  orders  accepted  TUESDAY  THROUGH  FRIDAY  from  10:00  am  to  6:00  pm  PST. 

We  carry  a  complete  line  of  ATARI  products  and  have  a  large  public  domain  library. 
Write  or  call  for  free  catalogue.    (408)   749-1003     TUE   -    FRI   10AM  -    6    PM 


PRICES  SUBJECT  TO  CHANGE  WITHOUT  NOTICE  -   ALL  SALES  ARE  FINAL 


A  COMPUTER  SOFTWARE  SERVICES 
FD,  BOX  17660,  ROCHESTER,  NY  14617 
ATARI  "PHONE  [716]  467-9326 

JUST  RELEASED! 

$99.95        "SUPER  ARCHIVER  II 

(for  ATARI  1050  drives) 

NOWI COPYS  all  ENHANCED  DENSITY  programs  plus  retains  all  of  the  features 
of  our  World  Famous  SUPER  ARCHIVERI  (see  below).  Allows  you  to  COPY  or 
CREATE  single  or  ENHANCED  density  protection  schemes  (Including  PHAN- 
TOM SECTORSI).  Completely  automatic;  compatible  with  the  BIT-WRITERI;  the 
ULTIMATE  BACKUP/PROGRAMMING  device!  Only  $99.95  plus  S4  S/H/l 
NOTICEI II  you  already  own  a  SUPER  ARCHIVERI,  you  can  upgrade  to  a  SUPER 
ARCHIVER  II  for  only  S29.95  plus  $4  S/H/l  (disk  only  -  no  additional  hardware 
required). 

THE 

$69.95        "SUPER  ARCHIVER'T         $69.95 

(for  ATARI  1050  drives) 

The  new  SUPER  ARCHIVER,  obsoletes  all  copying  devices  currently  available 
for  the  ATAR1 10501  It  eliminates  the  need  tor  Patches,  PDB  files,  Computer 
Hardware,  etc.  Copies  are  exact  duplicates  of  originals  and  will  run  on  any 
drive;  without  exaggeration,  the  SUPER  ARCHIVER  is  the  most  powerful 
PROGRAMMING/COPYING  device  available  for  the  1050!  Installation  consists 
of  a  plug-in  chip  and  6  simple  solder  connections.  Softwares  included. 
Features  are: 

•  TRUE  DOUBLE  DENSITY 

•  ULTRA-SPEED  read/write 

•  FULLY  AUTOMATIC  COPYING 

•  SUPPORTS  EXTRA  MEMORY 

•  SCREEN  DUMP  to  printer 

•  TOGGLE  HEX/DEC  DISPLAY 

•  SECTOR  orTRACK  TRACING 

•  AUTOMATIC  DIAGNOSTICS 

•  DISPLAYS  HIDDEN  PROTECTION 

•  ADJUSTABLE/CUSTOM  SKEWING 

•  AUTOMATIC  SPEED 
COMPENSATION 

•  AUTOMATIC/PROGRAMMABLE 
PHANTOM  SECTOR  MAKER 


•  ARCHIVER/HAPPY  ARCHIVER 
COMPATIBLE 

•  BUILT-IN  EDITOR  -  reads,  writes, 
displays  up  to  35  sectors/track 
short 

•  BUILT-IN  CUSTOM  FORMATTER 
up  to  40  sectors/track 

>  BUILT-IN  DISASSEMBLER 

•  BUILT-IN  MAPPER  -  up  to  42  sectors/ 
track 

•  DISPLAYS/COPIES  Double  Density 
HEADERS 

•  AUTOMATIC  FORMAT  LENGTH 
CORRECTION 

•  SIMPLE  INSTALLATION 

The  SUPER  ARCHIVER  Is  so  POWERFUL  that  only  programs  we  know  that  can't 
be  copied  are  the  newer  ELECTRONIC  ARTS  and  SYNFILE/SYNCALC  (34  FULL 
sectors/track).  It  you  want  it  ALL  . .  .  buy  the  "BIT-WRITER"!  also  ,  .  .  then  you'll 
be  able  to  copy  even  these  programs!  Only  S69.95  plus  S4  S/H/l. 


$79.95 


"BIT-WRITER"! 


$79.95 


The  Super  Archiver  "BITWRdiR"!  is  capable  cf  duplcoUng  even  the  "uncopyable" 
EA  and  SYN  series  which  empioy  34  FULL  sectors/tracks.  "BIT-WRITER"!  Is 
capable  of  reproducing  these  and  FUTURE  protection  schemes  of  non 
physiclally  damaged  disks.  PLUG-IN  circuit  boards  and  4  simple  solder 
connections.  The  "SUPER  ARCHIVER  with  "BIT-WRITER"!  Is  the  ultimate 
PROGRAMMING/COPYING  device  for  Atari  1050's.  EXACT  DUPLICATES  of 
originals  are  made!  Copies  run  on  ANY  drive.  Must  be  used  with  Super 
Archiver.  Only  $79.95  plus  S4  S/H/l. 


$69.95 


'ULTRA  SPEED  PLUS" 


$69.95 


Imagine  a  universal  XL/XE  Operating  System  so  easy  to  use  that  anyone 
can  operate  it  instantiy,  yet  so  versatile  and  powerful  that  every  Hooker, 
Programmer  and  Ramdisk  owner  will  wonder  how  they  ever  got  along 
without  it!  Ultra  Speed  Plus  puts  unbelievable  speed  and  convenience  at 
your  fingertips.  Use  ANY  DOS  to  place  an  ULTRA  SPEED  format  on  your  disks, 
boot  any  drive  (1-9)  upon  power-up,  format  your  RAMDISK  in  Double  Density, 
activate  a  built-in  400/800  OS  for  software  compatibility,  plus  dozens  of  other 
features  too  numerous  to  mention!  Beiow  are  just  a  FEW  features  you'll  find 
in  the  amazing  OS: 


■  ULTRA  Speed  SIO  for  most 
modHled  drives 

■  ULTRA  Speed  Is  toggleable 

■  Boot  directly  (rom  RAMDISK 

'  Special  timer  circuits  not  re- 
quired for  1  or  2  Meg  upgrades 
'  Background  colors  adjustble 
'  Reverse  use  of  OPTION  key 
'  Cold-start  without  memory  loss 
>  Built-in  floppy/disk  configuration 
editor  (1-9) 


Built  In  RAMDISK  configura- 
tion editor  ('I-9) 
RAMDISK  exactly  duplicates 
floppy  drive  so  sector  copy- 
ing and  sector  editing  are 
now  possible 

Built  In  MINI  Sector  Copier 
Toggle  SCREEN  OFF  for  up  to 
40%  increase  of  pfocessing 
speed. 
Toggle  internal  BASIC 


•  Ram  resident  disk  loader 
program  (MACH  10  menu) 

-  DOUBLE  DENSITY  RAMDISK 
capable 

•  Entire  MEMORY  test  that  pin- 
points delective  RAM  chiip 

•  Boot  any  drive  (1-9)  upon 
power-up  or  cold-start 

•  Supports  memory  upgrades 
up  to  TWO  MEGABYTES 

-  THREE  Opercling  Systems  In 
one  (XLJxE,  400/800,  ULTRA 
SPEED  PLUS) 


$29.95 


"XF551  ENHANCER!" 


$29.95 


The  XF551  Atari  drive  Is  a  fine  product  with  one  major  flaw.. .it  writes  to  side 
TWO  of  your  fiopping  disks  BACKWARDS.  This  causes  read/write 
incompatibility  problems  with  all  other  single  sides  drives  made  for  Atari 
such  as  Indus.  Trak,  Rana,  Percom,  Astra,  Atari  1050,  Atari  810,  etc.  Add  the 
XF551  ENHANCER  to  the  new  XFSSi  drive  and  your  problems  are  over!  This 
device  will  restore  100%  compatibility  while  retaining  original  design 
qualities  of  Atari's  super  new  drive.  The  XF551  ENHANCER  is  a  MUST  for  all 
XF551  Owners.  Installation  is  simple.  Only  $29.95  plus  $4  S/H/l. 


A 


DEALER/DISTRIBUTOR/USER  GROUP  Discount  avallalbe  call  for  Info 
PHONE  Orders  -  IvIASTER  CARD,  VISA  MAIL  -  Money  Orders.  Checks 

•SHIPPING!  Add  $4  for  Shlpping/HondHng/lnsuronoe  within  Itie  U.S.A.        ATA(?| " 
UPS  BLUE  LABLE  (2nd  DAY  AIR)  available  lor  S3  extra  per  stilpment.  rtlrMXI 

CALL  TODAY!  (716)  467-9326  COMPUTER  SOFTWARE  SERVICES 

9  am  -  5  pm  (EST)  WEEKDAYS  P.O.  Box  17660 

Rochester,  N.Y  14617 


$39.95  RICHMAN'S  $39.95 

80  Column  Word-Processor! 

Easy  to  use,  very  powerfui,  and  NO  ADDITIONAL  HARDWARE  required! 
Works  with  TV  or  Monitor!  This  "DISK  ONLY"  80  Column  Word-Processor  is 
simple  to  use  while  offering  numerous  features  such  as: 


Completely  Menu  driven 

Self  contained  DOS 

Complete  Text  formatting 

Built  in  Printer  Drivers 

Page  numbering 

Justify  and  Endfill 

High  Speed  Cursor 

Dictionary 

80  COLUMNS  ON  THE  SCREEN! 


Insert  and  Delete 
Search  Mode 
View  only  mode 
Memory  Statistics 
Alternate  Output 
Change  screen  Colors, 
borders,  luminesce 
Mouse  compatible 


One  expert  has  compared  40  domestic  and  foreign  word-processors 
and  concluded  that  the  RICHMANS  80  Colunnn  Word-Processor  is  the 
best!  Only  $39.95  plus  $4  S/H/l.  (64K  required). 


$39.95 


THE  "QUINTOPUSI" 


$39.95 


The  "QUINTOPUSI"  is  an  inexpensive  device  that  provides  a  tremendous 
amount  of  convenience  while  eliminating  the  problems  associated  with 
the  endless  "daisy-chaining"  of  peripherals  (eg;  drives,  interfaces,  printers, 
modems,  cassettes,  etc.).  The  "QUINTOPUSI"  Is  an  I/O  port  expander  that 
converts  a  single  I/O  output/input  into  five  additional  outputs/inputs.  Instead 
of  daisy-chaining  all  of  your  peripherals  (which  often  times  results  in  passing 
a  signal  through  30  feet  or  more  of  cable!),  the  "QUINTOPUSI"  allows  each 
device  to  be  connected  directly  to  the  computers  through  only  three  or 
four  feet  of  cable.  This  is  particularly  useful  when  attempting  to  use 
ULTRASPEED  or  WARPSPEED  data  transfer  rates.  The  "QUINTOPUSI"  also 
provides  the  "extra"  I/O  ports  often  needed  to  connect  devices  not  having 
daisy-chaining  capabilities.  Cable  resistance  and  compacitance  are 
greatly  reduced  thereby  significantly  improving  the  opportunity  of 
accurate  data  transfers!  Only  $39.95  plus  $4  S/H/l. 

$59.95  THE  "QUINTOPUSI"  $59.95 

(wifh  SWITCHABLE  PORTS!) 

This  Deluxe  version  of  the  "QUINTOPUSI"  has  all  of  the  above  features  with 
the  additional  benefits  of  two  SWITCHABLE  PORTS!  This  means  you  can 
connect  two  computers  to  one  printer  or  two  printers  to  one  computer;  you 
can  switch  In  a  computer/printer  combination  and  while  you're  printing 
out  a  long  document,  switch  in  a  second  computer  to  access  a  modem, 
disk  drive,  cassette  deck,  etc!  Switch  multiple  combinations  of  peripherals 
or  computers  without  the  hassel  or  re-arranging  I/O  cables ....  simply  flip 
a  switch!  Only  $59.95  plus  S4  S/H/l. 


LIMITED  SPECIALS! 

Previously  we  listed  these  products  under  our  FIRESALE  ad  but  many  of  our 
customers  feared  that  the  software  Items  might  be  smoke  or  water 
damaged.  They're  NOT!  All  of  the  Items  listed  below  are  BRAND  NEW.. .only 
their  literature  or  packing  may  have  slight  cosmetic  imperfections.  All  items 
are  fully  warrantled!  Quantities  are  limited!  No  rainchecks! 


1  PILL  (wittiout  case) 

2.  SUPER  PILL  (without  case) 

3.  XL  FIX  ROM 

4.  ULTRA  MENU/DOS 

5.  DISKCRACKER  (Newest  version) 

6.  ELECTRONIC  PHANTOM  SECTOR  MAKER  DELUXE 

7.  RICHMANS  80  COLUMN  WORD  PROCESSOR 

8.  MIRACLE  (Disk  only  Version  of  Impossible) 

9.  IMPOSSIBLE  for  800  or  800XL 

10.  XL  MATE 

11.  COMPACTOR 

12.  KLONE II  (Generic  HAPPY  backup) 

13.  SILENCER 

14.  BLACK  PATCH  (MASTER) 

15.  BLACK  PATCH  DATA  DISKS  1  &  2 

'Order  5  Items  or  more  and  we  will  pay  the  freight! 

These  SPECIALS  are  for  C.S.S.  customers  only  -  NO  DEALER  DISCOUNTS  -  NO  RAINCHECKS 

-  LIMITED  QUANTITIES 


LIMITED 

NORMALLY 

SPECIALS 

$  70 

$19 

80 

22 

70 

19 

30 

19 

50 

19 

60 

35 

60 

29 

70 

19 

150 

69 

30 

15 

30 

15 

100 

75 

30 

19 

50 

25 

20 

10 

BARGAINS! 


COLOR  PRINTER 
PLOTTER 


1020 

Complete  with: 

•  2  Pen  Sets 

•  1  Roll  Paper 

•  Power  Supply  &  Cable         '        Brand  New 

EXTRAPENSETS Ib'-^s  IcoTor! 


$14.98 


ATTN.  DEALERS 

PAC-MAN 

Case  of  120 


800  48K  COMPUTER 


w/ PAC-MAN 


$69.95 

Rf.Mi„l!il<.iL<-d 


$69. 


1025  PRINTER 


■  80  Coliui: 
'  Dot  Malilx 
'  Fiiclloii/Ti 
•  DliPit  O 


L,  $79.98 


1200XL  64K  COMPUHER 


w/PAC-MAN 


Rpwmiltloued 


1027  PRINTER 


•  80  Coliiinn 

•  Direct  C^oniiecl 

•  letter  Quality 


Brand  New 


4    ^^^     Ultih.  UKIVE 

1050  $169. 


800  BOARDS 

•  Mother    •  CPU    yourchoicb 

•  Power      •  ROM  $8.98 


SYNTREND   $4.98 


850  Interlace    $79  Qfi 
Serial,  parallel   „,,„„,„;i„„„| 


82.5  80  Column  Printer 


RPOHUUtlolKtl 


BASIC  TUTOR    . 

■1  BOOKS  ^4.98 


ARCADE  CHAMP 

a^^  $14.98 

•  PAC  MAN  TT—    -.•^^■wr 


DOS  XE  ..$9.95 


1010  Tape  drive.,..  $29, 

10' Joystick  ext $,99 

Trackball $9,95 


CARTRIDGES  FOR  800,  XL,  XE 


BASIC  CARTRIDGE  

BASIC  TUTOR  iA  BOOK.S)  

TURMQII 

PAC  MAN  (no  box)  

DONKEY  KONG  (no  box)  

GORF  H00.800)  

DEMON  A'lTACK  H00.800) 

DELU.XE  INVADERS 

.JOURNEY  TO  THE  PU\NL-fS 

MATH  ENCOUNTER  

DANCE  TANTAa'  $S 

LOGIC  i,RVEI.S $8 

MEMORV  M/\NOR  $8 

LINKING  LOGIC  $8 

CHICKEN  $8, 

CL/VIM  JUMPER  $8 


$4 


95 
95 
05 
.95 
.95 
.95 
.95 
.95 
.95 
.98 
.98 
98 
98 
98 
98 
98 


$8.98 

$8.98 

$8.98 

$8.98 

$8.98 

$8.98 

$14.95 

$1  1.95 

$14.95 

$19.98 

TENNIS  $19.98 

FINAL  LEGACY  $19.98 

MARIO  BROS $19.98 

DONKEY  KONG  ,JR $19.08 

.JUNGLE  HUNT  $19.98 

MOON  PATROI $19.98 


DELTA  DIMWING  

HEY  DIDDLE  DIDDLE  ... 

SLIME  1400/800)  

ALPHABET  ZOO  

ALF  

ADVENTURE  CREATOR 

SK^' WRITER  

FOOTB/\LL  

DEFENDER . 
ROBOTRON 


BA'ITLEZONE  *19. 

FOOD  FIGHT  $19. 

HAI^DBALL  $10. 

FIGHT  NIGHT  $19. 

ONE  ON  ONE  BASKETBALL  $19. 

DESEICT  FAIXON  910 

NECROMANCER  $19 

RESCUE  ON  FRACTALUS  SI9, 

BALLB1./\ZER  $19, 

BLUE  M/\.X  $19, 

SI'AR  RiMDERS  II  $19 

DAVID'S  MIDNIGHT  MAGIC  $19, 

ARCIION  $19, 

GATO  $24, 

ACE  OF  ACES  $24, 

LODE  RUNNER  $24, 

BARN>-ARD  BIj\STER  [KE  gun)  $24, 


DISK  SOFTWARE  FOR  800,  XL,  XE 


DAVIDS  MIDNIGHT  MAGIC  $4.98 

ZORRO  $4.98 

HANDll'S  (4KK  400.8(X))  .'&4.98 

PROT'ECTOR  II  $4.98 

CIV\1M  JUMPKR  $4.98 

SYNTREND  $4.98 


CROSSCHECK  $4.98 

MOLECULE  MAN  $4.98 

CRYSTAL  RAIDER  $4.98 

D1':SPATCH  RIDER  $4.98 

MISSION  ASTEROID  $4.98 


SPIDERMAN  .^M.98 

HULK  $4.98 

VISICALC  $24.98 

B(30KKEEPER  W/  numeric  keyijad...  $29.98 
GET  RICH  $39.98 


8-BIT  I/O  CARLE  $4.98 

5.25"  DISKS 

20  CENTS  EA.* 

QTY.          PRICE 

10    $4.00 

100  ....  $29.95 

*1000  ....  $200 

MAJORHY-  ARE  UNNOTCHED 
CONTAINING  OLD  SOFTWARE 

SAN  JOSE  COMPUTER 

THE         ATARI         STORE 

Sunrise  Plaza  640  Blossom  Hill  Rd.  San  Jose,  CA  95123 
(408)  224-8575  •  BBS  (408)  224-9052 

SHIPPING:  ADD  $.5.00  'IXD  ALL  ORDERS.  AIR  AND  INTERNATIONAL  SHimNG  EXTRA.  TliATS  IT. 

WARRANTY:  90  DAY  WARRANTY  ON  ALL  H'EMS.  TAX:  CAUEORNIA  RESIDEN're  ADD  7%  SALES  TAX, 

PREPAYMENT:  USE  VLSA.  MASTERCARD.  MONEY  ORDER.  CASHIERS  CHECK  OR  PERSONAL  CHECK. 

PERSONAL  CHECK  MUST  CLEAR  PRIOR  TO  SHIPMENT.  C.O.D.:  CASH.  CASHIERS  CHECK  OR  M.O.  ONLY. 

Prices  subject  to  change  without  jiotlce.  Brand  ajid/or  product  names  are  trademarks  or  registered  trademarks  of  tlielr  respective  holders. 

Ad  produced  on  an  AT/\RI  ST. 


When  You  Want  To  Talk  Atari 
You  Want  To  Talk  To  Us. 


•  •  • 


COMPUTERS 


Atari 

65XE 
130XE 


INTERFACES 


ICD 

P:R  Connection 

Printer  Connection 

850  To  Par  Cable 

Supra 

1150 

Xetec 

Graphix  Interface 

Atari 

850  Interface 


5109 
149 


58 

34 
15 

36 

38 

109 


XL/XE  ENHANCEMENTS 


Axlon 

32K  Memory  400/800  16 
Atari 

80  Column  Card  69 

1/0  Cable  7 
ICD 

Sparta  DOS  Construction  Set        26 

US  Doubler/Sparta  DOS  45 

Real  Time  Clock  46 

Rambo  XL  26 


MODEMS 


Alps 

ASP  1000  120cps,  9-Pin 


Atari 

SX212  300/1200  ST  Dir.  Con.      64 

XM301  44 

Avatex 

1200HC  89 

2400  159 

Supra 

2400  Baud  XL/XE  or  ST  159 

2400  Baud  (No  Software)  139 


DRIVES 


Atari 

XF551  XL/XE 

179 

I.B. 

5 '4  40  Track  (ST) 

219 

LCD. 

FA-ST  20  Meg 

629 

FA-ST  30  Meg 

759 

Indus 

GTS  100  3'/2"  DS/DD  (ST) 

189 

GT  1000  5'/4"  DS/DD  (ST) 

199 

Supra 

30  Meg  Hard  Drive  (ST) 

649 

60  Meg  Hard  Drive  (ST) 

989 

PRINTERS              i1 

179 


Atari 

XDM121  Letter  Quality  XL/XE$189 

Brother 

M-1109  lOOcps  Dot  Matrix         159 

Epson 

LX-800  150cps,  80  Col.  189 

NEC 

P2200  Pinwritcr  24-Wire  349 

Okidata 

ML-390+  270cps  24-Wirc  509 

Panasonic 

KX-P1091i  194cps,  80  Col.         179 

Star  Micronics 

NX-1000  HOcps,  80  Col.  169 

NX-1000  Rainbow  Color  239 


SOFTWARE  XL/XE 


Access 

Leaderboard  Golf 
Atari 

Atariwriter  Plus 
Broderbund 
The  Print  Shop 
Microprose 
Top  Gunner 
F-15  Strike  Eagle 


SOFTWARE  (ST) 


Accolade 

Test  Drive 

Acti  vision 

Hacker  2  Doomsday 

Antic 

Flash 

Avant  Garde 

PC  Ditto 

Cygnus 

Starllcet 

DataEast 

Speed  Buggy 

Electronic  Arts 

Auto  Duel 

Epyx 

D'vebomber 

Firebird 

Tracker 

FTL 

Dungeonmastcr 

Miclitron 

Leatherneck 

Microprose 

F-15  Strike  Eagle 

Psygnosis 

Obliterator 

Soft  Logik  Corp. 

Page  Stream 

Timeworks 

Desktop  Publisher 

WordWriter 

Unison  World 

Printmaster  Plus 


13 
36 

27 

16 
23 


24 

29 

19 

59 

34 

27 

32 

19 

14 

27 

28 

24 

27 

139 

79 
45 

23 


EXCLUSIVE  XL/XE 
SOFTWARE  FINAL 
CLOSEOUT    ' 


ATARI 

1020  Printer,  40  CoL 

Color        n9 


"Purchase  nO""  of  the 

following  items  &  pay 

only  siO""  for  the  Atari 

1020  Color  Printer" 

AA4204  1010  Color  Pens        S2.49 
AA4206  1020  Color  Pens  2.49 


UNBOXED / UNDOCUMENTED 
CARTRIDGES 


AAB4008  Space  Invaders  1.99 

AAB4011  Star  Raiders  1.99 

AAB4012  Missile  Comnd.  1.99 

AAB4013  Asteroids  1.99 

AAB4022  Pac  Man  1.99 


AAB4024  Galaxian  $1.99 

AAB4025  Qix  1.99 

AAB8030  E.T.  Phone  Ho.  1.99 

AAB8039  Eastern  Front  1.99 


DOCUMENTED  SOFTWARE 


AA4011  Star  Raiders  2.99 

AA4012  Missile  Command  2.99 

AA4022  Pat  Man  4.99 

AA4025  Defender  4.99 

AA4102  Kingdom  (C)  1.99 

AA4126  Speed  Reading  2.49 

AA41I2  States  &  Cap.  (C)  1.99 

AA4129  Vuggles  Rainbow  2.49 

AA415  Filemanager  6.99 

AA5047  Timcwisc  (D)  2.99 

AA6006  Counseling  Prot.  1.99 

AA8048  Millipede  4.99 
AA9035  Mickey  Outdoors  (C)   3.99 


ATARI  PROGRAM 
EXCHANGE  (CASSETTES) 


Counter  -  Downhill  -  Dog  Daze  - 
Quaxon  -  Salmon  Run  -  Typo  At- 
tack -  Video  Math  Flashcard  - 
Fig/Forth  1 .49/ea. 


ROKLYN 


Anti-Sub  (D)  &  Journey  to  Planet 
(R)  3.49/ca. 

Call  today  on 
miscellaneous  Mind- 
scape,  Data  Soft,  and 
Synapse  Titles  as  low 
as  si.99/ea. 


Mul* 


Your  Source  for  Hardware,  Software  &  Peripherals 


In  U.S.A. 


800-233-8950 

In  Canada  call:  800-233-8949 

All  Other  Areas  call:  717-327-9575     Fax  call:  717-327-1217 

Educational,  Governmental  and  Corporate  Organizations 

Call  toll-free:  1-800-221-4283 
CMO,  101  Rcighard  Ave.,  Dept.  B6,  Williamsport,  PA  17701 


Over  400,000  SATISFIED  CUSTOMERS  •  MAJOR  CREDIT  CARDS  ACCEPTED 


Pl)Llt;Y;  Add  3'>.i  (inillinuini  .$7.00)  shipping  jiid  ll.indl- 
ing.  Largci-  shipments  may  lL'C|uirc  additional  charges.  Per- 
sonal and  company  checks  requite  3  weeks  to  clear,  i'or 
iastcr  deliver)',  use  your  credit  card  or  send  cashier's  check 
or  hank  money  order  Cledit  cards  are  not  charged 
Luitil  \vc  siiip.  {Pennsylvania  and  Mainland  residents  add  appropriate  sales  la.\.  All 
prices  are  U.S.A.  prices  and  are  subject  lo  change  All  items  are  sulijeci  lo  availability. 
Defective  software  will  be  rcplacce!  witli  llic  same  ilem  only,  1  lardware  will  be  replac- 
ed or  repaired  at  our  discrclion  within  the  lenns  and  limits  of  the  manulaclurer's 
warranty.  We  cannot  guarantee  compatibilit)'.  All  sales  are  final  and  reuirned 
shipments  arc  subject  lo  a  icstocking  fee.  We  arc  not  responsible  lor  typograpliic 
or  photographic  errors, 

B606 


MMC 

MICROCOMPUTER 
MARKETING  COUNCIL 


